Insertar un codigo a partir dela seleccion de un nombre

[Avellaneda]

Iniciado por natalyro

Sebal gracias por tu respuesta asi funciona muy bien, pero para mi no porque la empresa tiene visual y este tiene muchas restricciones y uns de ellas es que no acepta los controles como el datacombo.

Con un control ComboBox normal:

With Rs5
Do Until .EOF
Combo1.AddItem .Fields("cus_name")
Combo1.ItemData(Combo1.NewIndex) = .Fields("cus_no")
.MoveNext
Loop
End With

Seleccionar el nombre y mostrar el número

Código:

Private Sub Combo1_Click()
    MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub