![](https://access-global.net/wp-content/uploads/2023/01/Cabecera_DF_2023.png)
Tratamiento de errores: On Error GoTo
24/03/2023![](https://access-global.net/wp-content/uploads/2023/01/Cabecera_DF_2023.png)
Tratamiento de errores: Resume
28/03/2023Option Compare Database Option Explicit Sub test() On Error GoTo LinErr On Error GoTo 0 ' Err.Clear Err.Raise 94 Exit Sub LinErr: On Error GoTo -1 ' Err.Clear Debug.Print "Error" & Space(25 - Len("Error")) & ": " & Err.Number End Sub