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
