Cargar combobox de varias columnas en formulario con datos de access

Juan Suarez · el 28 de julio

Estimados buenas tardes,

Estoy con un combobox cargando datos de tabla de access.

Si agrego Fields(0) , Fields(1), como esta pensado en el algoritmo que copio a continuación , los carga en filas diferentes de esta manera

3

Dato1

4

Dado 2

2

Cuando 3 es el Id de Dato 1 y 4 es el Id de Dato2

La idea es que al seleccionar el nombre se obtenga el valor del Id correspondiente en una variable

Esto es a efectos de obtener el id para agregar datos en otra tabla

Aguardo su ayuda

Muchas gracias

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" 'Aqui va el nombre de la tabla access
cn.Open conexion
Set datos = cn.Execute(consultaSQL)
Do While Not datos.EOF
Dim filaCombo As String
filaCombo = datos.Fields(1)
' Agregar la cadena al ComboBox
Me.ComboBox1.AddItem filaCombo
datos.MoveNext
Loop
datos.Close
Set datos = Nothing
cn.Close
Set cn = Nothing

End Sub