Ms access 在access中禁用msgbox

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

按CTRL-F键，查找msgbox并对其进行注释。我想这是你能做到的唯一方法

按Alt+F11打开Visual Basic IDE，然后按CTRL+F进行搜索。在“查找”中键入msgbox，选择“替换”，并在“替换为”框中键入“msgbox”（注意撇号）。这将注释掉项目中的所有msgbox语句。

如果这些消息框实际上是由VBA代码生成的，请注释掉它们。但是，如果它们是Access生成的，例如插入或更新记录时的消息框，则需要使用命令DoCmd.SetWarnings False来抑制它们。只需确保仅在需要时关闭警告，然后再将其打开即可。否则，Access中的所有消息框都将关闭，即使在“设计模式”下也是如此。似乎它起作用了。谢谢大家的帮助

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

---

关闭警告是一个糟糕的建议。当然，如果你从如此简单的角度来看它的话。您是否曾经使用过Access？您可以关闭Access应用程序的警告，以便不显示“是否确实要更新N行？”弹出窗口。然后你可以再次打开它们。这不是一个糟糕的建议。这对于写在几行上的消息框、msgbox（“hello”和“world”）或需要msg=msgbox（“hello world”，vbyesno）的代码都不起作用。Todo所以在搜索时需要使用通配符。。

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