Consulta de eliminacion de cuadro de lista
Publicado por Jorge (26 intervenciones) el 09/03/2008 19:59:40
Tengo dos cuadros de lista, en el primero tengo los nombres de los Tecnicos que obtengo de una tabla. A través de un boton paso uno o varios de estos nombres al segundo cuadro de lista mediante:
Private Sub Comando7_Click()
Dim Vitem As Variant, selecc As String
selecc = ""
For Each Vitem In Me.Tecnicos.ItemsSelected
selecc = selecc & "," & Me.Tecnicos.ItemData(Vitem)
Next
selecc = Right(selecc, Len(selecc) - 1)
Me.Modificaciones.RowSource = "SELECT DISTINCTROW Tecnicos.Tecnicos FROM Tecnicos WHERE (((Tecnicos.Id) In (" & selecc & ")));"
End Sub
hasta aqui todo bien, tengo en el segundo cuadro de lista una columna con el o los tecnicos seleccionados
pero como hago para realizar una consulta de eliminacion de la tabla con los nombres de este segundo listbox??
lo he intentado en modo grafico pero nose como, si en el criterio pongo el cuadro de lista, no me encuentra nada
Private Sub Comando7_Click()
Dim Vitem As Variant, selecc As String
selecc = ""
For Each Vitem In Me.Tecnicos.ItemsSelected
selecc = selecc & "," & Me.Tecnicos.ItemData(Vitem)
Next
selecc = Right(selecc, Len(selecc) - 1)
Me.Modificaciones.RowSource = "SELECT DISTINCTROW Tecnicos.Tecnicos FROM Tecnicos WHERE (((Tecnicos.Id) In (" & selecc & ")));"
End Sub
hasta aqui todo bien, tengo en el segundo cuadro de lista una columna con el o los tecnicos seleccionados
pero como hago para realizar una consulta de eliminacion de la tabla con los nombres de este segundo listbox??
lo he intentado en modo grafico pero nose como, si en el criterio pongo el cuadro de lista, no me encuentra nada
Valora esta pregunta
0