Combo1. ¿Additem?
Hola gracias por la mano..! Soy inexperto y agradezco a quien me pueda ayudar en lo siguiente. Quiero que en la lista del Combo1 me salga el resultado de una consulta de una tabla. Como lo hago desde el principio.. !
Muchas gracias..!
Muchas gracias..!
1 Respuesta
Respuesta de kieleze
1
Private Sub cargaCombo()
Dim RS As Recordset
Dim BD as database
Set BD = OpenDatabase(app.path)
Set RS = BD.OpenRecordset("Tabla")
cbo.AddItem "(Ninguno)"
cbo.ItemData(cbo.NewIndex) = 0
cbo.ListIndex = 0
Do While Not RS.EOF
Cbo. AddItem RSrs. Fields! CampoMOSTRAR 'Este agrega en el combo el campo que se va a mostrar
cbo.ItemData(cbo.NewIndex) = RS.Fields!campoKEY 'este toma por el campo clave, para poder usarlo cuando se necesite
RS.MoveNext
Loop
RS.Close
End Sub
Suerte Ezequiel
Dim RS As Recordset
Dim BD as database
Set BD = OpenDatabase(app.path)
Set RS = BD.OpenRecordset("Tabla")
cbo.AddItem "(Ninguno)"
cbo.ItemData(cbo.NewIndex) = 0
cbo.ListIndex = 0
Do While Not RS.EOF
Cbo. AddItem RSrs. Fields! CampoMOSTRAR 'Este agrega en el combo el campo que se va a mostrar
cbo.ItemData(cbo.NewIndex) = RS.Fields!campoKEY 'este toma por el campo clave, para poder usarlo cuando se necesite
RS.MoveNext
Loop
RS.Close
End Sub
Suerte Ezequiel
