Error al cargar Return sin GoSub.

Tengo un formulario con esta instrucción al activar registro.

Private Sub Form_Current()
On Error GoTo sol_err
'Declaramos las variables
Dim miSql As String
If Me.NewRecord Then 'si el registro es nuevo
'No hago nada
Else 'En caso contrario
'Creamos una consulta de actualización de datos
miSql = "UPDATE ConsultaGastos SET ConsultaGastos.chkSel = False WHERE ConsultaGastos.chkSel = True"
'Ejecutamos la consulta
DoCmd.SetWarnings False
DoCmd.RunSQL (miSql)
DoCmd.SetWarnings True
'Refrescamos el formulario
Me.Refresh
'Activamos el check para el registro activo
Me.chkSel.Value = True
End If
Exit Sub
sol_err:
If Err.Number = 7878 Then
Resume Next
Else
MsgBox "Se ha producido el error " & Err.Number & " - " & Err.Description
Exit Sub
End If

End Sub 'Form_Current()

y este otro al cargar.

Private Sub Form_Load()
Dim Etiqueta As Control
On Error GoTo Form_Load_TratamientoErrores

Call QuitaFiltro

Form_Load_Salir:
On Error GoTo 0
Exit Sub
Form_Load_TratamientoErrores:
MsgBox "Error " & Err.Number & " en Procedimiento.:Form_Load de Documento VBA: Formulario CuotasLocales (" & Err.Description & ")"
Resume Form_Load_Salir
End Sub 'Form_Load

el problema es que de vez en cuando no se por que da este error

Si alguien me puede decir los motivos.

1

1 respuesta

Respuesta
1

A ver (y de paso postea aquí) lo que tiene la función QUITAFILTRO

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas