Error en bucle FOR

[mmarti]

Hola a todos, quisiera que vean el siguiente código y ojalá puedan ver que es lo que estoy haciendo mal, porque la verdad no le encuentro el error.
Para mi el problema esta en el bucle ya que al recorrer el listview me inserta varias filas en la bd pero en la ultima fila esta el error. Cosa que soluciono quitando "On Error GoTo errorGF"

Private Sub RegistrarGrupoFamiliar(resultado As String)
Dim cadenaSQL As String
Dim Fila As Integer

On Error GoTo ErrorGF
Fila = 1
For Fila = 1 To Me.lvGrupoFamiliar.ListItems.Count
cadenaSQL = ""
cadenaSQL = cadenaSQL & "INSERT INTO familiares (tipodoc,nrodoc,"
cadenaSQL = cadenaSQL & "apellido,nombre,fechanacimiento,lugarnacimien to,"
cadenaSQL = cadenaSQL & "nacionalidad,estadocivil,niveleducativo,titul o,"
cadenaSQL = cadenaSQL & "tipofamiliar,afiliado,detallesmedicos,viviendapro pia) "
cadenaSQL = cadenaSQL & "VALUES ("
'tipo de documento
cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(1 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(2 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(3 ) & "',"

cadenaSQL = cadenaSQL & "'" & Format(Me.lvGrupoFamiliar.ListItems.Item(Fila).Sub Items(4), "yyyy/mm/dd") & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(5 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(6 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(7 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(8 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(9 ) & "',"

cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(1 0) & "',"

Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(1 1) & ","

cadenaSQL = cadenaSQL & "'" & Me.txtLegajo.text & "',"


cadenaSQL = cadenaSQL & "'" & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(1 2) & "',"

cadenaSQL = cadenaSQL & Me.lvGrupoFamiliar.ListItems.Item(Fila).SubItems(1 3) & ");"
Conex.Execute cadenaSQL
Fila = Fila + 1
Next Fila

ErrorGF:
Resutado = "Error al Registrar Grupo Familiar. " & vbCrLf & Err.Description
End Sub


Agradeceré muchisimo cualqueir ayuda que puedan darme
Saludos

[fero]

¿Para qué ponés fila=fila +1?

[mmarti]

Perdón. Eso me quedo despues de haber probado con while. El código en si es es así:

Private Sub RegistrarGrupoFamiliar(resultado As String)
Dim cadenaSQL As String
Dim Fila As Integer

On Error GoTo ErrorGF
For Fila = 1 To Me.lvGrupoFamiliar.ListItems.Count
"""Inserto el registro"""
Next Fila

ErrorGF:
Resutado = "Error al Registrar Grupo Familiar. " & vbCrLf & Err.Description
End Sub


Gracias por tu respuesta

[Cesar2990]

Hola

Intenta esto no c si se pueda hacer esto con los listwiev pero esto lo e hecho con listbox

for fila = 0 list1.listcount - 1
y luego lo q quieras q haga
next

espero q te ayude en algo.

[emilio21]

con el listview seria

For fila = 0 to listview.ListItems.Count -1
' operaciones
Next


espero te sirva!!!