Actualizar al cambiar DBCombo

Como hacer para que cuando seleccione un registro del dbcombo se actualicen los controles, con código, no con controles.
Tengo el siguiente código:
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT IdCliente, Nombre, NIF FROM Clientes", cnn, adOpenKeyset, adLockOptimistic
'Cargar un DaataCombo de una tabla
With DataCombo1
Set .DataSource = rst
.DataField = "Nombre"
Set .RowSource = rst
.ListField= "Nombre"
End With
Y quiero que al seleccionar un elemento del DBCombo muestre en los controles Tex1 y Text2 el NIF y IdCliente
Text1.Text = "NIF: " & rst!NIF
Text2.Text = "Direccion: " & rst!IdCliente
¿Cuál sería la solución?
Muchas gracias,
1

1 respuesta

Respuesta
1
Prueba utilizando este código para cargar el combo:
Set DataCombo1.RowSource = rst
DataCombo1.BoundColumn = "idcliente": DataCombo1.ListField = "nombre"
y cargar las cajas así:
rst.find "idcliente='" & DataCombo1.boundtext
Text1.Text = "NIF: " & rst!NIF
Text2.Text = "Direccion: " & rst!idCliente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas