Cargar combobox con datos de Access y obtener ID en textbox al seleccionar

[Juan Suarez]

Estimados buenas tardes,

Recurro a Uds para ver si me pueden ayudar con algo que parece sencillo pero me esta complicando.

Estoy cargando un combobox y guardando el Id  en un textbox para usarlo posteriormente 

El tema es que quiero mostrar  solo el nombre en el combobox y solo muestra  campo 0 correspondiente al ID

El Id lo copio correctamente al textbox pero no puedo lograr mostrar el nombre en el combo para seleccionar correctamente

Aguardo sus sugerencias

Adjunto archivo de excel y Base de datos

Gracias

 

Cargo Combobox Access.xlsb BaseDatos.rar

[Antoni]

Prueba a ver si es esto.

Cargo Combobox Access.xlsb

[Juan Suarez]

Muchas gracias,

Es justamente lo que necesitaba.

Par cargar también la columna 3 (RubradoDescripcion) o cualquier otra columna a otro textbox, como seria ?

Aplico la misma lógica y no la encuentro

Saludos

[Juan Suarez]

Solucionado el problema,

No estaba validando el Null y esto me ocasionaba el error

Gracias 

[Juan Suarez]

Copio el codigo por si a alguien le sirve

Saludos.

'Esta funcion toma un campo como parámetro y devuelve el valor seguro, ya sea el valor real del campo o una cadena vacía
'si el campo es NULL, controlamos error de esta manera 

Private Function ControloNull(field As Object) As String
    If Not IsNull(field.Value) Then
        ControloNull = field.Value
    Else
        ControloNull = ""
    End If
End Function

Private Sub CargoComboAccess()
    Dim cn As Object
    Dim datos As Object
    Dim consultaSQL As String
    Dim conexion As String
    Dim rutaBaseDatos As String
    
    Set cn = CreateObject("ADODB.Connection")
    
    ' Obtengo la ruta donde se encuentra el archivo de Excel actual
    rutaBaseDatos = ThisWorkbook.Path & "\Rbo.accdb"
    
    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & rutaBaseDatos ' Ruta de la base de datos en la misma carpeta del archivo de Excel
        
    consultaSQL = "SELECT * FROM TRUBRADO" '  nombre tabla access
    cn.Open conexion
    Set datos = cn.Execute(consultaSQL)
    Do While Not datos.EOF
        Dim campoID As String
        Dim campoNombre As String
        Dim campoDescripcion As String
        
        campoID = ControloNull(datos.Fields(0))
        campoNombre = ControloNull(datos.Fields(1))
        campoDescripcion = ControloNull(datos.Fields(2)) ' índice
        
        ' Agregar el campoNombre al ComboBox
        Me.ComboBox1.AddItem campoNombre
        
        ' Guardar el campoID en la propiedad List del ComboBox
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = campoID
        
        ' Guardar campoDescripcion en la propiedad List del ComboBox
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 2) = campoDescripcion
        
        datos.MoveNext
    Loop
    datos.Close
    Set datos = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Private Sub ComboBox1_Change()
    ' Obtener el campoID y campoDescripcion del elemento seleccionado en el ComboBox
    Dim campoID As String
    Dim campoDescripcion As String
    
    campoID = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
    campoDescripcion = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 2)
    
    ' Asignar el campoID al TextBox1
    Me.TextBox1.Value = campoID
    
    ' Asignar el campoDescripcion al TextBox3
    Me.TextBox3.Value = campoDescripcion
End Sub
 

[Juan Suarez]

 

Antoni buenas tardes,

en el archivo que me retornaste viene con este nuevo VbaProject  ( adjunto copia de pantalla ) y pide contraseña, pense que era solo en este archivo pero creo un archivo nuevo y trae esto como predeterminado y no lo puedo eliminar.

Aguardo tus comentarios  por si sabes que es esto  que me doy  cuenta ahora 

Me llama la atención porque en otra maquina no  ocurre lo mismo

Aguardo comentarios

Saludos

 

[Antoni]

No tengo nada que ver con eso, eso es que has añadido un complemento o quizás has abierto un archivo .xla.

Revisa el apartado  Complementos en la ficha Programador.

[Juan Suarez]

Estimado Antoni,

Mil disculpas del caso, ni en el archivo que envié ni en el tuyo estaba  el  VbaProject   que me apareció en excel  y pide contraseña.

Dicho esto le consulto:

No instale complemento alguno y de todas maneras me pide contraseña, ¿es normal esto?,  piden contraseña los complementos?,  aguardo sus comentarios y sugerencias  para ver si puedo quitar este  VbaProject que se genero  con un nombre que no esta claro y no dice nada.

Saludos

Gracias

 

[Antoni]

No tengo ni idea, esto es lo que te cuenta el ChatGPT sobre el tema de los archivo .xla.

Cita

Los archivos con extensión .XLA son archivos de complemento utilizados en Microsoft Excel. Estos archivos se conocen como "Complementos de Excel" o "Complementos de hoja de cálculo" y se utilizan para agregar funcionalidad personalizada a Excel. Los archivos .XLA son específicos de versiones antiguas de Excel, como Excel 2003 y versiones anteriores. A partir de Excel 2007, se introdujo un nuevo formato de archivo de complemento llamado .XLSX, que es más versátil y puede contener macros y funciones personalizadas.

Los archivos .XLA pueden contener código VBA (Visual Basic for Applications) que agrega nuevas funciones, características o automatiza tareas en Excel. Por ejemplo, podrían usarse para crear funciones personalizadas que no están disponibles en las fórmulas estándar de Excel, o para automatizar tareas repetitivas.

 

[Antoni]

Revisa este apartado,  ahí tendrás marcado un complemento que es el causante de tu problema.

[Juan Suarez]

Resuelto,

Cierro este tema.

Disculpas por mi ignorancia al respecto y las molestias

Abrazo