Access 2007 中的自定义按钮

Question

我在 MS Access 中的表单中添加了一些自定义按钮，但不知何故我无法让它们工作。在按钮属性事件选项卡中，我已将“单击时”事件更改为调用“事件过程”​​。然后在 VBasic 中，我选择了我的按钮，据我所知，这段代码应该会给我提示，如果选择了 Yos，则表单应该关闭。但是当我点击我的按钮时，什么也没有发生。难道我做错了什么 ？

Option Compare Database
Option Explicit

Private Sub cmdQuitApp_Click()
If MsgBox("Are you sure you want to close the form?", vbYesNo + vbQuestion + vbInformation, "Clasing the form.") = vbYes Then
DoCmd.Close
End If
End Sub

Answer 1

将数据库所在的文件夹配置为受信任位置。有关详细说明，请参阅“Create, remove, or change a trusted location for your files”。