problemas con el combo
alvas
17 de Marzo del 2004
Tengo una aplicacion y quiero que al hacer un click sobre un elemento de un combo escriba en 2 cuadros de texto de la siguiente forma:
Private Sub Combo1_Click()
Do While Data1.Recordset.EOF = False
If Combo1.Text = Data1.Recordset("Nombre") Then
txtNombre.Text = Data1.Recordset("Nombre")
txtTelefono.Text = Data1.Recordset("telefono")
End If
Data1.Recordset.MoveNext
Loop
End Sub
Pero no escribe nada, hago lo mismo con una lista y sí lo hace
Private Sub Combo1_Click()
Do While Data1.Recordset.EOF = False
If Combo1.Text = Data1.Recordset("Nombre") Then
txtNombre.Text = Data1.Recordset("Nombre")
txtTelefono.Text = Data1.Recordset("telefono")
End If
Data1.Recordset.MoveNext
Loop
End Sub
Pero no escribe nada, hago lo mismo con una lista y sí lo hace
