错误陷阱的妙用(一)屏蔽取消所出现的错误

时　间:2010-07-10 00:00:00
作　者:王樵民   ID：5203  城市：郑州
摘　要:本文介绍错误陷阱on error goto 的一些应用技巧。
正　文:

错误陷阱的妙用(一)
一、屏蔽取消所出现的错误
示例1：有如下商品查询，当使用DoCmd.OpenQuery "商品查询", , acReadOnly，打开该查询时，会出现一个有两个按钮的提示框（确定、取消），此时如果直接单击“取消”按钮，系统就会出错。
Select 商品名称,型号
FROM 商品
Where (((商品.商品名称) Like "*" & [请输入关键词] & "*")) or (((商品.型号) Like "*" & [请输入关键词] & "*"));
下面的代码，单击提示框中的取消按钮，就会出现错误。
Private Sub Command1_Click()
DoCmd.OpenQuery "商品查询", , acReadOnly
End Sub
如改成以下代码就可以避免错误的发生
Private Sub Command1_Click()
On Error GoTo err1
DoCmd.OpenQuery "商品查询", , acReadOnly
Exit Sub
err1:
MsgBox ("您按了取消按钮")
End Sub
同理，下面的代码如果单击对话框中的取消按钮也会出现错误
Private Sub Command2_Click()
DoCmd.RunCommand acCmdImport '打开导入功能对话框
End Sub
如改成以下代码就可以避免错误的发生
Private Sub Command2_Click()
On Error GoTo err1
DoCmd.RunCommand acCmdImport '打开导入功能对话框
Exit Sub
err1:
MsgBox ("您按了取消按钮")
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店