Fred
08 de Agosto del 2003

Hola que tal...

Me estoy iniciando con Visual Basic. Quiero molestar tu atencion en lo siguiente:

LLené un Combobox de la siguiente manera:

Private Sub Form_Load()
Const sPathBase As String = "C:Mis DocumentosProyectoBaseControlProveedores.mdb"
Set BD = OpenDatabase(sPathBase)
Set RS = BD.OpenRecordset("SELECT * FROM TMonedas", dbOpenDynaset)

' Llena el listbox con tipos de moneda
Dim cadena As String
If RS.RecordCount > 0 Then
RS.MoveFirst
Do While Not RS.EOF
cadena = RS("IdMoneda") & Chr(9) & RS("MonedaNombre")
' List1.AddItem cadena
Combo1.AddItem cadena
RS.MoveNext
Loop
End If

End Sub

Esto me funsiona bién ....
Ahora, donde estoy pegado: es cómo seleccionar del ComboBox (o ListBox) un item y presentar los campos en Cajas de Texto, para luego poder editar o o eliminar el registro de la tabla.

Se me entiende ??

Gracias por tu ayuda y te felicito por tu Pagina
Fred

GJ Polo
08 de Agosto del 2003

Para capturar el elemento seleccionado de un Combo o de un listbox puedes hacerlo con la propiedad "text", luego puedes copiar el texto en una caja o introducirlo directamente en la consulta.
si necesitas mas explicación simplemente escribe.

zoltar
08 de Agosto del 2003

para capturar el elemento del combo o listbox dentro de tu programa debes seleccionar la opción click del objeto al momento de hacer click con el mouse debe ser:

combo1.click
text1.text = combo1.text

o

listbox1.click
text1.text = listbox.text