Foros del Web - Ver Mensaje Individual - Insertar un codigo a partir dela seleccion de un nombre

seba123neo · #10 (**permalink**) 22/01/2009, 10:03

y que problema hay?? cargas el datacombo con el nombre del cliente y en la propiedad BoundText cargas el id....algo asi:

Código:

Private Sub Cargar()
    Dim rsCargar As ADODB.Recordset
    Set rsCargar = New ADODB.Recordset
    
    rsCargar.Open "SELECT idCliente AS id,nombre FROM Clientes ORDER BY nombre", TuConexion, adOpenStatic, adLockReadOnly, adCmdText
    
    Set DataCombo1.DataSource = rsCargar
    Set DataCombo1.RowSource = rsCargar
    DataCombo1.ListField = "nombre"
    DataCombo1.BoundColumn = "id"
End Sub

ahi tenes cargado el combo con el nombre y los id...y cuando te toque guardar guardas el BoundText...que es el que tiene el id del cliente..

saludos.