在访问中禁用msgbox

Question

我试图在MS Access 2003 SP3中创建一个小表单，我使用了其他人制作的一些函数，这些函数中包含了msgbox。我想在运行表单时禁用msgbox。是否可以在Access中禁用msgbox？

Answer 1

我创建了一个名为msgbox的函数。好像它正在发挥作用。谢谢大家的帮助。

Public Function MsgBox(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context) As VbMsgBoxResult

If myProcedureisRunning then 
    VBA.MsgBox Prompt
else
    debug.print prompt
endif
End Function

Answer 2

如果实际上这些消息框是从VBA代码生成的，那么请将它们注释掉。但是，如果它们是Access生成的，例如插入或更新记录时的消息框，则需要使用命令 DoCmd.SetWarnings False 来抑制它们。只需确保仅在需要时关闭警告，然后重新打开它们。否则，即使在“设计模式”下​​，Access中的所有消息框也将关闭。

Answer 3

执行CTRL-F并找到MSGBOX并对其进行评论。我想这是你能做到的唯一方法。

Answer 4

按Alt + F11打开Visual Basic IDE，然后按CTRL + F进行搜索。在查找中输入

msgbox

，选择“替换”，然后在“替换为”框中键入

'msgbox

（注意撇号）。这将注释掉项目中的所有msgbox语句。