Option 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
Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *
Comentario *
Nombre *
Correo electrónico *
Web
Guarda mi nombre, correo electrónico y web en este navegador para la próxima vez que comente.