自学access，遇到宏问题，望达人能指点一下

题目很简单，建立一个命令按钮，功能为打开某个已经做好的查询对象。

我就按部就班写了：docmd.openquery "商品查询"

但是我遇到的问题是，知道内容对话框出现之后，不输入数值，点取消的时候会出现      

运行时错误‘2001’
您取消了前次的操作。



但是我直接双击"商品查询"这个查询对象的时候，选取消不会跳运行错误啊

我没有编程基础，请大大能给点指导。

谢谢。

Private Sub Command3_Click()
DoCmd.OpenQuery "商品查询"
End Sub

这是我刚刚估摸出来的简单代码……

丢脸

这是我根据“命令按钮向导”，做出的，

然后到事件过程中的代码，

根本看不懂……

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim stDocName As String

    stDocName = ChrW(21830) & ChrW(21697) & ChrW(26597) & ChrW(-29726)
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command3_Click:
    Exit Sub

Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click

End Sub

按VB的尿性 是因为取消时返回的值不合法 可以定义返回值或返回空值时反馈

谢谢回帖，能否指导一下再添加什么语句啊。

我把问题再详细一下。
运行宏的时候，是这样的：




点取消之后，是这样的：




我就懵了。到底怎么办？

谢谢指导。

把3楼这两行删了就行
    MsgBox Err.Description
    Resume Exit_Command3_Click//应该也可以不删

看楼主没任何基础..真想学可以找本书看看 实现起来大致差不多就行 知道报错需要又臭又长的前置基础知识教材会慢慢教

为啥要学这玩意啊

—— 来自 Sony H4233, Android 8.0.0上的 v2.1.0-play

为什么要学vb

楼主这些都是VB的窗体问题，需要了解相关基础知识再来上手，像顶楼这个问题是你只给了“确认”部分的代码，没有定义“取消”这个按钮对应的事件触发宏，
顺带一提，我干活中用到ACCESS的VBA都跟便秘一样，现成函数库少，挂上其他库调用几个EXCEL实例的VBA一天到晚出幺蛾子。推荐所有非界面问题都用SQL解决

这又什么用啊 我还以为早没人学了