Private SubCommand1_Click()On Error Resume Next Print1/0Print"刘金玉"End Sub Private SubCommand2_Click()GoTo web2 Print"刘金玉"web:Print"ljy.kim"web2:Print"selidev.com"GoTo web End Sub Private SubCommand3_Click()On Error GoTo err1 Callcal(1,3)Print"刘金玉"Print"刘金玉编程"err1:MsgBox"...
答案是:使用On Error Goto 0 语句 使用On Error Goto 0 这条语句后,后面的程序一旦有错误发生就会提示错误,并结束脚本执行。 Dim i i = 1/0 Response.Write "第一个除法执行后" On Error Goto 0 '后面的语句一旦有错误发生就会提示错误,并结束脚本执行 i = 1/0 Response.Write "第二个除法执行后" 运...
答案是:使用On Error Goto 0 语句 使用On Error Goto 0 这条语句后,后面的程序一旦有错误发生就会提示错误,并结束脚本执行。 举例: Dim i i = 1/0 Response.Write "第一个除法执行后" On Error Goto 0 '后面的语句一旦有错误发生就会提示错误,并结束脚本执行 i = 1/0 Response.Write "第二个除法执行...
好的应用程序应该能够捕获错误并进行相应的处理，而不是VBA弹出的错误消息。正如上文提到的，有两种方法...
On error goto err1 Err1: 处理语句 注意:goto标签只能出现在function或者sub的内部 二、代码调试 调试步骤 1、下断点。程序运行到断电的位置会暂停 2、使用f8按键可以进入到程序代码中,可以进入到function或者sub中去调试。Shfit+f8是指一行行代码执行。Ctrl+shift+f8意味着,可以直接跳出function或者sub ...
Call G00B02logOut("Error.002", errNum ,errDesc ) End If On Error Goto 0 有几个特点需要了解, 1,on error resume Next如果在全局定义,则作用是全局的,你在主程序中使用了这一句,后面如果调用了一个函数,那么函数中如果有错误,也将被忽略,你在主程序中函数调用的语句后面也可以捕获到这个错误,这一点...
∟Error Handling Flag and the "Err" Object∟"On Error GoTo 0" - Turning off Error Handling This section provides a tutorial example on how to use 'On Error GoTo 0' to turn off the error handling flag in a procedure to catch the first runtime error....
On Error GoTo SaveRecODBCErr Dim fld As Field, ctl As Control Dim errStored As Error Dim rc As DAO.Recordset ' Check to see if the record has changed. If SRO_form.Dirty Then Set rc = SRO_form.Recordset.Clone If SRO_form.NewRecord Then ...
'on error resume next '遇到错误,跳过继续执行下一句 28 29 Sub t3() 30 On Error Resume Next 31 Dim x As Integer 32 For x = 1 To 10 33 Cells(x, 3) = Cells(x, 2) * Cells(x, 1) 34 Next x 35 End Sub 36 37 'on error goto '出错时跳到指定的行数 38 39 Sub t4() 40 On...
Sub LargeUpdate() On Error GoTo LargeUpdate_Error Dim db As DAO.Database, ws As DAO.Workspace ' Set MaxLocksPerFile. DBEngine.SetOption dbMaxLocksPerFile, 200000 Set db = CurrentDb Set ws = Workspaces(0) ' Perform the update. ws.BeginTrans db.Execute "UPDATE BigTable SET Field1 ...