Lista de seleccion
Publicado por Archi (17 intervenciones) el 22/07/2009 10:59:57
Hola os cuento lo que quiero hacer a ver si alguien me echa una mano, ya que yo de Access pues no entiendo demasiado.
Tengo una cuadro de lista con una serie de terminos que mediante seleccion multiple paso a otro cuadro de lista a traves de un procedimiento que es este:
Private Sub Comando4_Click()
Dim Vitem As Variant, selecc As String
selecc = ""
For Each Vitem In Me.Lista0.ItemsSelected
selecc = selecc & "," & Me.Lista0.ItemData(Vitem)
Next
selecc = Right(selecc, Len(selecc) - 1) ' Así quitamos la primera coma
Me.Lista4.RowSource = "SELECT DISTINCTROW Informacion.ID_INFORMACION, Informacion.INFORMACION FROM Informacion WHERE (((Informacion.ID_INFORMACION) In (" & selecc & ")));"
Me.Lista4.Requery
End Sub
Como hago para los datos que yo selecciono me los guarde en un campo de una tabla que yo eliga???
Gracias y un saludo
Tengo una cuadro de lista con una serie de terminos que mediante seleccion multiple paso a otro cuadro de lista a traves de un procedimiento que es este:
Private Sub Comando4_Click()
Dim Vitem As Variant, selecc As String
selecc = ""
For Each Vitem In Me.Lista0.ItemsSelected
selecc = selecc & "," & Me.Lista0.ItemData(Vitem)
Next
selecc = Right(selecc, Len(selecc) - 1) ' Así quitamos la primera coma
Me.Lista4.RowSource = "SELECT DISTINCTROW Informacion.ID_INFORMACION, Informacion.INFORMACION FROM Informacion WHERE (((Informacion.ID_INFORMACION) In (" & selecc & ")));"
Me.Lista4.Requery
End Sub
Como hago para los datos que yo selecciono me los guarde en un campo de una tabla que yo eliga???
Gracias y un saludo
Valora esta pregunta
0