RE:VBA para Access 2000?? MUY URGENTE!!!
Hola, la verdad es que la pregunta que haces es muy oportuna. En teoria, deberian funcionar tanto para el como de Visual Basic como para el de Access 2000. Pero no es así. Creo que son distintos.
De todas formas, para añadir valores a un combo de access, no necesitas additem aunque tienes que trabajar con cadenas. El codigo que te paso, añade y elimina cadenas de un combo de access.
Tienes que añadir un formulario, dos botones (añadir y borrar) y un combobox (combo) y pegar el código
Dim contador As Integer
Private Sub Añadir_Click()
contador = contador + 1
If combo.RowSource = "" Then
combo.RowSource = "Prueba" & contador
Else
combo.RowSource = combo.RowSource & ";" & "Prueba" & contador
End If
End Sub
Private Sub Borrar_Click()
Dim pos As Integer
Dim anterior As String
Dim posterior As String
pos = InStr(1, combo.RowSource, combo.Value, vbTextCompare)
MsgBox pos
anterior = Mid(combo.RowSource, 1, pos - 1)
MsgBox anterior
posterior = Mid(combo.RowSource, pos + Len(combo.Value) + 1, Len(combo.RowSource) + 1 - (pos + Len(combo.Value)))
MsgBox posterior
combo.RowSource = anterior & posterior
End Sub
Private Sub Form_Open(Cancel As Integer)
combo.RowSourceType = "Lista de Valores"
End Sub
Espero que te sirva. Saludos