Ver Mensaje Individual
  #12 (permalink)  
Antiguo 22/01/2009, 11:08
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 4 meses
Puntos: 37
Respuesta: Insertar un codigo a partir dela seleccion de un nombre

Cita:
Iniciado por natalyro Ver Mensaje
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