Access - Error de Compilación

Descargue un ejemplo de como ajustar un informe a mis necesidades, cuando lo quiero ejecutar me sale un error que dice:
Error de compilación:
No se encontro el método o el dato miembro

y cuando sale esto, me subraya esta palabra AddItem. Será que le falta agregar alguna referencia o algo asi para poder ejecutarlo. Necesito crear u informe en el que allá la posibilidad de agregar o quitar campos si así lo desean.

Muchas Gracias.

Haría falta ver el código donde se produce el error. Por ejemplo, el AddItem de los combos no está disponible hasta la versión XP de Access; si se trata de un AddItem en un CommadBar, necesitas una referencia a Office...

Saludos
José Bengeochea Ibaceta

El error sale en un cuadro de lista y la versión del Access es 2000, si lo quieres ver dime y yo te mando la BD. Gracias

Pues si es en un cuadro de lista y la versión es 2000, está claro: estás usando un método que no existe en esa versión.

Hay otras formas de llenar un cuadro de lista que usar Additem. Si expones aquí el código y su finalidad seguramente encontraremos un alternativa.

Saludos
José Bengoechea Ibaceta

Aqui esta el código, te agradesco mucho, soy nuevecita en este tema y hay muchas cosas que no sé. Este es parte del código, aqui es donde muestra el error:

Private Sub cmdAñadir_Click()

Dim lngCampos As Long, _
i As Long, _
strRowSource As String, _
vntElemento As Variant, _
strEliminar As String, _
lngContador As Long

On Error GoTo cmdAñadir_Click_TratamientoErrores

lngCampos = Me.lstCampos.ListCount

' añado los campos seleccionados
For Each vntElemento In Me.lstCampos.ItemsSelected
Me.lstSeleccionados.AddItem Me.lstCampos.Column(0, vntElemento)
' incremento el tamaño total con el tamaño del campo añadido
lngTamaño = lngTamaño + TamañoCampo(Me.lstCampos.Column(0, vntElemento))
Next

#If Depurar Then
Debug.Print lngTamaño
#End If

' quito los campos de la lista de campos
strRowSource = Me.lstCampos.RowSource
lngContador = Me.lstCampos.ListCount

For Each vntElemento In Me.lstCampos.ItemsSelected
' concateno al nombre del campo un punto y coma excepto en el ultimo registro
If lngContador > 1 Then
strEliminar = Me.lstCampos.Column(0, i) & ";"
Else
strEliminar = Me.lstCampos.Column(0, i)
End If
' reemplazo en el origen de la fila el nombre del campo por una cadena vacía
strRowSource = Replace(strRowSource, strEliminar, "", , 1)
i = i + 1
lngContador = lngContador - 1
Next
Me.lstCampos.RowSource = strRowSource
Me.lstCampos.Requery

#If Depurar Then
Debug.Print strRowSource
#End If

cmdAñadir_Click_Salir:
On Error GoTo 0
Exit Sub

cmdAñadir_Click_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc.: cmdAñadir_Click de Documento VBA: Form_frmInforme (" & Err.Description & ")"
Resume cmdAñadir_Click_Salir
End Sub ' cmdAñadir_Click

Me resulta un tanto confuso leer el código, con tanto nombre parecido pero distinto, pero parece que se trata de seleccionar una serie de resgistros en un control de lista para luego filtrar por ellos un informe. El problema esta en que Additem no está disponible en 2000 ( aunque luego utiliza otro método para llenar una lista que sí que se puede usar).

Creo que va a ser más fácil que utilices un ejemplo mío y así si luego tienes alguna duda me será más fácil explicarlte quéhace el código. El eejmplo están en

http://jbengoechea.com/RptCp.htm#combos

Saludos.
José Bengoechea Ibaceta