Error en Me.Controls vba excel

Peron por molestarla pero ningun experto ha podido responder esta pregunta y ud siempre me da la respuesta acertada

Estoy intentando desarrollar un código en donde me llene varios combobox con datos de una tabla de access. Buscando por aquí y por allá di con casi todo el código pero el compilador me arroja el siguiente error en la línea Me. Controls (Sugerencia que me dio ud en una pregunta anterior)

Error de compilación: No se encontró el método o el dato miembro

Este es el código completo de la sentencia y adjunto una imagen con las referencias habilitadas por si faltase alguna.

Private Sub Worksheet_Activate()
Dim CN As Object
Dim RsProfe As Object
Dim t, c, cb, o As String 'Tabla, campo, consulta, objeto formulario
Dim nombre As String
Dim fila, i As Integer
Dim ct
 Set CN = New ADODB.Connection
 Set RsProfe = New ADODB.Recordset
 fila = 2
 For i = 1 To 2
    t = Sheets("objetos").Cells(fila, 2).Value 'Nombre de la Tabla
    c = Sheets("objetos").Cells(fila, 3).Value 'Nombre del campo
    cb = "Select" & c & "From " & t
    nombre = ThisWorkbook.Path & "\BD-GI.mdb"
    CN.Open "provider=microsoft.jet.oledb.4.0; " & "data source=" & nombre & ";"
        RsProfe.ActiveConnection = CN
        RsProfe.CursorType = adOpenStatic
        RsProfe.LockType = adLockOptimistic
        RsProfe.CursorLocation = adUseClient
        ''Consulta BD''
        RsProfe.Open cb
        For Each ct In Me.Controls
            If ct.Name = o Then
                Do While Not RsProfe.EOF()
                  o.AddItem RsProfe(c)
                   RsProfe.MoveNext
                Loop
            End If
          RsProfe.Close
          Set RsProfe = Nothing
      CN.Close
   Set CN = Nothing
fila = fila + 1
Next
End Sub

1 Respuesta

Respuesta

Sr. Cristian, recomiendo cerrar esta consulta si ya fue resuelta. O autorresponderla para dar por concluido el tema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas