G
Guest
I found a common workaround for the lack of additem in Access 97 and 2000.
Tablebox is the combo box I'm populating. Fields are a little harder. You have
to have the table name then set the table's fields to a RowSource.
'''''''''''''''''''Acces 97/2000 additem replacement by Jim
Stiene'''''''''''''''
Dim TB as Tabledef, str1 As String
Set TB = CurrentDb.TableDefs
str7 = TB(0).Name
For i = 1 To CurrentDb.TableDefs.Count - 1
If TB(i).Attributes = 0 Then
str1 = str1 & ", " & TB(i).Name
End If
Next i
Me.Tablebox.RowSource = str1 'Tablebox is the name of the combobox populated
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
(e-mail address removed)
Tablebox is the combo box I'm populating. Fields are a little harder. You have
to have the table name then set the table's fields to a RowSource.
'''''''''''''''''''Acces 97/2000 additem replacement by Jim
Stiene'''''''''''''''
Dim TB as Tabledef, str1 As String
Set TB = CurrentDb.TableDefs
str7 = TB(0).Name
For i = 1 To CurrentDb.TableDefs.Count - 1
If TB(i).Attributes = 0 Then
str1 = str1 & ", " & TB(i).Name
End If
Next i
Me.Tablebox.RowSource = str1 'Tablebox is the name of the combobox populated
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
(e-mail address removed)