错误陷阱的妙用(一)
一、屏蔽取消所出现的错误
示例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