El valor de BOF o EOF es True, o el actual registro se eliminó

[0zK4Rr]

Iniciado por flaviovich

Puedes mostrarnos parte del codigo donde ocurre el error?

Haciendo debug, llego hasta aqui, y luego salta el error

Código:

Sub Guardar()
    On Error GoTo ErrUpdate

    If fg(0).FixedRows = fg(0).Rows Then
        MsgBox "No hay datos para iniciar el proceso.", vbExclamation
        Exit Sub
    End If
    
    For r = fg(0).FixedRows To fg(0).Rows - 1
        lID = fg(0).Cell(flexcpText, r, 0)
        lItem = fg(0).Cell(flexcpText, r, 15)
        lFecha = IIf(fg(0).Cell(flexcpText, r, 9) = Empty, "Null", "'" & fg(0).Cell(flexcpText, r, 9) & "'")
        DBconex.Execute "Update BDLogistica..Pagoefectivo set Fecha=" & lFecha & ",hora='" & fg(0).Cell(flexcpText, r, 10) & "',agencia='" & fg(0).Cell(flexcpText, r, 11) & _
        "',total=" & Format(fg(0).Cell(flexcpText, r, 12), forImporte) & ",ctacte='" & fg(0).Cell(flexcpText, r, 13) & "',observ='" & fg(0).Cell(flexcpText, r, 14) & "' where id=" & lID & " and item=" & lItem
        
    Next
    Call Me.Datos
    
    On Error GoTo 0
        If Err.Number = 0 Then MsgBox Func_Error(50010), vbExclamation
    Exit Sub
ErrUpdate:
  MsgBox Err.Description, vbCritical
End Sub