como hago un codigo para pasar dsd combo a lista?
Publicado por ainhoa (56 intervenciones) el 29/04/2004 11:21:18
ncsito pasar varios datos desde un cuadro combinado a una lista, pero lo unico q he conseguido ha sido pasarlos desde un combo a un text, os enseño el codigo:
Private Sub armar_Click()
On Error Resume Next
Dim rs As Recordset
Set rs = dbs.OpenRecordset("SELECT modelo_armar FROM datos WHERE modelo_armar ='" & Me.armar & "'")
If Not rs.EOF Then
Me.modelo_armar = rs.Fields(0).Value
Else
Me.modelo_armar = ""
End If
rs.Close
End Sub
como puedo hacer para pasar VARIOS datos a un list? muchas gracias de antemano ;)
Private Sub armar_Click()
On Error Resume Next
Dim rs As Recordset
Set rs = dbs.OpenRecordset("SELECT modelo_armar FROM datos WHERE modelo_armar ='" & Me.armar & "'")
If Not rs.EOF Then
Me.modelo_armar = rs.Fields(0).Value
Else
Me.modelo_armar = ""
End If
rs.Close
End Sub
como puedo hacer para pasar VARIOS datos a un list? muchas gracias de antemano ;)
Valora esta pregunta


0