在访问中禁用msgbox

我创建了一个名为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

如果这些消息框实际上是由VBA代码生成的,那么请将它们注释掉。但是,如果它们是访问生成的,例如插入或更新记录时的消息框,则需要使用命令 docmd.setwarnings错误 为了压制他们。只要确保只在需要时关闭警告,然后再打开它们。否则,来自Access的所有消息框都将关闭,即使处于“设计模式”。

执行ctrl-f并查找msgbox并对其进行注释。我想这是你唯一能做到的方法。

按Alt+F11打开Visual Basic IDE,然后按Ctrl+F进行搜索。类型

msgbox

'msgbox