Hola ¿Has probado la propiedad itemdata? La propiedad itemdata es un vector del combo que tiene tantos elementos como tiene el combo. Entonces alli podes almacenar tu codigo. Para agregar el codigo al itemdata seria asi
Código:
Private Function BusTipoPro()
conectbd
Dim RsetDatos As Recordset
Dim cadena_conexion As String
Dim intcontador As Integer
'sentencias sql
cadena_conexion = "select TIPPRO_NOMBRE,TIPPRO_ID from TIPO_PRODUCTO"
'cadena_conexion = "select tippro_nombre,tippro_id from tipo_producto where subtippro_id= 2 "
Set RsetDatos = VarConexion.OpenRecordset(cadena_conexion)
With RsetDatos
Do While Not .EOF
intcontador = intcontador + 1
If intcontador = .RecordCount Then
Exit Do
End If
cbotipopro.AddItem !TIPPRO_NOMBRE
cbotipopro.ItemData(cbotipopro.NewIndex) = !TIPPRO_ID
.MoveNext
Loop
End With
RsetDatos.Close
End Function
Para hacer referencia a un elemento de esa matriz (me refiero al itemdata) seria asi
Código:
Private sub cbotipopro_Click()
MsgBox "El codigo para el elemento " & cbotipopro.List(cbotipopro.Listindex) & " es " & cstr(cbotipopro.itemdata(cbotipopro.Listindex))
End Sub
¿Se entiende?
Saludos. Lucas