题目很简单,建立一个命令按钮,功能为打开某个已经做好的查询对象。
我就按部就班写了: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解决这又什么用啊 我还以为早没人学了