vb中关于On Error GoTo语句

我编写的是登录窗体,然后我编写一个修改用户口令的窗体。连接数据库都已成功程序也运行正常,可以修改密码,如后在代码中添加了On Error GoTo dealerror和dealerror:    showError "123123"语句就出现错误,说我的dealerror未定义,这个问题怎么解决?该如何定义。代码如下:Private Sub cmdSave_click()On Error GoTo DealErrorDim strSQL As StringIf Trim(txtNewPWD) = "" Then    MsgBox "请输入新口令!", vbCritical, "修改口令"    txtNewPWD.SetFocusElseIf txtNewPWD2 <> txtNewPWD Then    MsgBox "两次输入的口令必须相同!", vbCritical, "修改口令"    txtNewPWD.SetFocus    txtNewPWD.SelStart = 0    txtNewPWD.SelLength = Len(txtNewPWD)ElseIf txtOldPWD <> Module1.userpassword Then    MsgBox "旧密码输入错误", vbCritical, "旧口令错误"    txtOldPWD.SetFocusEnd IfstrSQL = "update userinfo set UserPassword= ' " & txtNewPWD & " ' " & " where username= 'root'"Module1.objcon.Execute strSQLUnload MeDealError:    ShowError "123123"End Sub查了很多资料都解决不了,记得以前做程序这块是不出错的 不知道为什么?

第1个回答  2011-09-28
我明白了,你再仔细看看,说的不是DealError没有定义吧????
说的是你的:ShowError没有定义!!!!!!!!!!
showerror这个函数不是VB自带的,你需要自己写!!!

你再试试。
第2个回答  2011-09-28
dealerror:
第3个回答  2011-09-28
ShowError 的问题,
把它改成
DealError:
Msgbox "123123" & vbCrLf & Err.Description
第4个回答  2011-09-28
学习

VBA-异常处理(On Error Goto)
VBA的异常处理机制通过On Error Goto语句实现。首先,当可能产生错误的代码行前添加On Error Goto ErrHandler,设置自定义错误标签。遇到错误时,如果没有On Error Goto 0,程序会直接跳转到错误标签,显示调试和结束选项。在宏或程序尾部, Exit Sub用于在无错误时终止错误处理,避免错误程序的执行。错误标...

vb文件列表框中的一个问题
在VB文件列表框中,OnError语句是关键的错误处理工具。它允许你启动、禁止、恢复错误处理程序,从而更灵活地管理运行时错误。OnErrorGoToline让你指定错误处理程序从特定行开始执行。发生运行时错误时,程序会跳转到指定的行,激活错误处理程序。确保该行在相同的过程中,否则编译时会出错。OnErrorResumeNext...

vb里On Error GoTo 0和On Error resume区别
On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。On Error GoTo line 启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个...

VBA 中异常处理
1. `on error goto 0`:这是一种默认处理,它相当于不使用该语句,任何错误会按常规方式处理,与不使用时的错误报告相同。2. `on error goto [标志语句]`:当出现异常时,程序会跳转到你指定的`标志语句`进行错误处理。例如:on error goto biaozhiyuju n = 1\/0 ...biaozhiyuju:[处理异常的...

大神 帮我看下 vba中 on error goto的问题
你可真棒,能用两句代码写出这么混乱的结构,好像生怕别人不知道你会用goto和on error。你那报错算幸运的了,不报错的话就凭你那do loop也是死循环。Sub 循环()On Error GoTo Err_Handle:Dim Err_Info As String: Err_Info = ""Dim i As Byte: i = 0For i = 2 To 8 Cells(i, 4) =...

vb中的on Error goto Errhandle 是什么意思
on Error goto Errhandle 意思是如果出现错误的话直接跳转到Errhandle,执行Errhandle中的指令!这是VB中最常见的错误处理方法!

关于VB中ON ERROR用法
On Error 语句的语法可以具有以下任何一种形式: On Error 语句示例 本示例先使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在。本示例中,试图删除一已经打开的文件从而生成的错误码为 55。这个错误将由示例中的错误处理程序码来处理,处理完後,控制会回到发生错误的语句处。On Error GoTo 0 语句关闭错...

一个关于vb on Error GOTO 的问题请教大家。
AdoRs.Close End If exit sub 或者 exit function error_1: MsgBox ("请检查你的数据库是否已经正常启动!")

vb中on Error的简单用法,很急,谢谢
on error goto eh for i=1 to 100 s=s+1 next i exit sub eh:k=false l=true 这个循环不会出错吧。。。把end for 改成了next i,不然不是运行中出错,而是通不过编译

VBA中的On Error Goto语句只能运行一次?
On Error GoTo line '如果错误产生, 则跳转到某行,或者标号执行 On Error Resume Next '如果错误产生, 则继续下一条语句 On Error GoTo 0 '清除当前设置的错误陷阱 一个声明来处理陷阱.Resume '执行完错误例程, 跳转到字程序.

相似回答