Access - Lista de seleccion

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder