Autor Tema: Guardar Campo Relacionado Con Combo Box (Leído 2507 veces)

Tetin · « **en:** Viernes 15 de Septiembre de 2006, 15:29 »

De antemano muchas gracias por la colaboración que me puedan prestar.

Tengo una tabla en acces que cuenta con campos id_profesor, nombres, apellidos.

Para anexar un nuevo registro muestro en un combobox nombres y apellidos, pero requiero guardar en alguna variable el id de profesor relacionado al nombre seleccionado en el combo.

Atento a sus respuestas.

Widark

Que tal Tetin!

Te puedo recomendar que uses el datacombo, con este control puedes configurar que columna quieres que muestre y cual almacenara en la bd.

Con la propiedad BoundColumn, estableces con que campo se enlaza el combo. Para tu caso seria el id del profesor. También esta la propiedad DataField. En la propiedad ListField va el nombre del campo para llenar la lista del combo, para tu caso seria el nombre del profesor. La propiedad RowSource te indica cual recordset tiene la información para llenar el combo.

Espero te sirva de ayuda, cualquier duda nos consultas.

Saludos.

Angel38

Aqui te dejo para que manejes los dos eventos del usuario.

Primero en el evento gotfocus del combo, cargas el nombre del usuario y el codigo lo cargas de forma implicita.

Código: Text

 
Private Sub combousuario_GotFocus()
 
combousuario.Clear
Set conexion = New ADODB.Connection
Set recordset = New ADODB.recordset
conexion.Open &#34;Ruta Base de Datos&#34;
 
sql = &#34;select * from usuarios &#34;
recordset.Open sql, conexion
 
With recordset
     While Not recordset.EOF
       combousuario.AddItem !Nombres
       combousuario.ItemData(cmbUsuario.NewIndex) = !Codigo 'Obtienes el codigo del usuario sin mostrarlo en el combo
       recordset.MoveNext
     Wend
End With
conexion.Close
End Sub
 
 

Luego en el evento click del combo le agregas a una variable el codigo del usuario que hayas seleccionado.
La variable la creo en un modulo para poderla utilizar en cualquier formulario sin ningún problema.

Código: Text

 
Private Sub combousuario_Click()
 
ContenedorCodigo = combousuario.ItemData(combousuario.ListIndex) 'Este es el truco que necesitas
 
End Sub

Espero te sirva.

SoloCodigo

Autor Tema: Guardar Campo Relacionado Con Combo Box (Leído 2507 veces)

Tetin

Guardar Campo Relacionado Con Combo Box

Widark

Re: Guardar Campo Relacionado Con Combo Box

Angel38

Re: Guardar Campo Relacionado Con Combo Box