Office中国论坛/Access中国论坛

标题: 求助：调用创建的子过程提示错误 [打印本页]

作者: cocopig 时间: 2012-7-6 15:49
标题: 求助：调用创建的子过程提示错误
access在VBA代码编辑窗口的顶端创建了子过程，代码如下：

Public Sub MsgBoxShow(Msg As String, Title As String)

Dim Response
Response = MsgBox(Msg, vbOKOnly, Title)

If Response = 0 Then
Exit Sub
End If

End Sub

然后在后面的代码中直接调用：
...................
MsgBoxShow("aaa","bbb")
exit sub
................... 编译提示出错：缺少“=”，何解？？？？？？？？？？？

我编写好的过程应该怎样调用？另外，如果我把上述代码保存为模块，又该怎样调用呢？

作者: andymark 时间: 2012-7-6 16:15
call MsgBoxShow("aaa","bbb")
或者
MsgBoxShow "aaa","bbb"

作者: 风中漫步 时间: 2012-7-6 16:15
本帖最后由风中漫步于 2012-7-6 16:20 编辑

还是楼上手快,我改

作者: cocopig 时间: 2012-7-6 16:31

andymark 发表于 2012-7-6 16:15
call MsgBoxShow("aaa","bbb")
或者
MsgBoxShow "aaa","bbb"

编译没再报错，谢谢。。。另请问：如果是调用模块就是要使用 call 那种方式吧？

作者: andymark 时间: 2012-7-6 16:36
上面2种方式法都行

作者: cocopig 时间: 2012-7-7 17:20

andymark 发表于 2012-7-6 16:36
上面2种方式法都行

今天我单独以上面的代码创建一个模块，用上述你所建议的两种方法调用，均显示过程未定义的错误，我是不是还缺了什么步骤没有做好呢？

作者: andymark 时间: 2012-7-7 20:07
请贴出模块完整的代码和调用的代码

作者: cocopig 时间: 2012-7-9 09:36

andymark 发表于 2012-7-7 20:07
请贴出模块完整的代码和调用的代码

Option Compare Database
Option Explicit

Public Sub MsgBoxShow(Msg As String, Title As String)

'Dim Msg, Title As String
Dim Response

Response = MsgBox(Msg, vbOKOnly, Title)

If Response = 0 Then
Exit Sub
End If

End Sub
--------------------------------
用以上代码新建模块，然后用call或msgboxshow ""都过提示编译错误。使用me.XXX系统也没有智能提示。但如果是创建过程则没有编译错误。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)