listbox
Quiero grabar el contenido del listbox,tengo lo siguiente:
For N = 0 To lista.ListCount
lista.ListIndex = N
Select Case N
Case 0
Tecnico1 = lista
Case 1
Tecnico2 = lista
Case 2
Tecnico3 = lista
End Select
Next N
CadSQL = "INSERT INTO OrdenC (Numero,Empleado,Fecha,Hora,Cliente, " _
& "Aviso,Garantia,Alquiler,Facturada,Motivo,FCierre,HCierre,Incidencias,HObra,Tecnico1,Tecnico2,Tecnico3,Taller,InSitu,MantHard,MantSoft,cerrada,curso) values (" _
& "" & Numero & ", " & NumOpe & ",'" & Format(Fecha, "yyyy-mm-dd") & "', " _
& "'" & Hora & "'," & NumCli & ",'" & Averia & "'," _
& Garantia & "," & Alquiler & "," & Facturada & ",'" & Motivo & "','" & Format(FCierre, "yyyy-mm-dd") & "','" & HCierre & "','" & Incidencias & "','" & HObra & "','" & Tecnico1 & "','" & Tecnico2 & "','" & Tecnico3 & "','" & Taller & "','" & InSitu & "'," & MantHard & "," & MantSoft & "," & Cerrada & "," & Curso & ")"
Conexion.Execute (CadSQL)
Pero me da error en el bucle For,exactamente en la linea:
lista.ListIndex = N
lista(es el nombre del listbox).
For N = 0 To lista.ListCount
lista.ListIndex = N
Select Case N
Case 0
Tecnico1 = lista
Case 1
Tecnico2 = lista
Case 2
Tecnico3 = lista
End Select
Next N
CadSQL = "INSERT INTO OrdenC (Numero,Empleado,Fecha,Hora,Cliente, " _
& "Aviso,Garantia,Alquiler,Facturada,Motivo,FCierre,HCierre,Incidencias,HObra,Tecnico1,Tecnico2,Tecnico3,Taller,InSitu,MantHard,MantSoft,cerrada,curso) values (" _
& "" & Numero & ", " & NumOpe & ",'" & Format(Fecha, "yyyy-mm-dd") & "', " _
& "'" & Hora & "'," & NumCli & ",'" & Averia & "'," _
& Garantia & "," & Alquiler & "," & Facturada & ",'" & Motivo & "','" & Format(FCierre, "yyyy-mm-dd") & "','" & HCierre & "','" & Incidencias & "','" & HObra & "','" & Tecnico1 & "','" & Tecnico2 & "','" & Tecnico3 & "','" & Taller & "','" & InSitu & "'," & MantHard & "," & MantSoft & "," & Cerrada & "," & Curso & ")"
Conexion.Execute (CadSQL)
Pero me da error en el bucle For,exactamente en la linea:
lista.ListIndex = N
lista(es el nombre del listbox).
