Syntaxe
On Error { GoTo [ line | 0 | -1 ] | Resume Next }
Exemple :
SQL="INSERT ..."
on error resume next
Conn.execute(SQL)
if(Err.Number=0)then
//Traitement sans erreur
else
//Traitement erreur
Response.Write(""&Err.Description)
end if
On Error Goto 0
Sub OnErrorStatementDemo() On Error GoTo ErrorHandler Open "TESTFILE" For Output As #1 On Error GoTo 0 On Error Resume Next ObjectRef = GetObject("MyWord.Basic") If Err.Number = 440 Or Err.Number = 432 Then MsgBox "Erreur Automation", , "Error Test" Err.Clear End If Exit Sub ErrorHandler: If Err.Number = 55 Then Close #1: Resume End If End Sub