VBA MS Access代码不会运行

Question

我是vba的新手，我正在尝试运行我的第一个VBA代码，我在表单中添加了一个按钮。然后我打开了点击事件并放置了

Private Sub run_Click()
MsgBox "hello World"
End Sub`

进入模块但是当我回到表单并在表单视图中单击按钮时没有任何反应，我做错了什么，我试图运行许多其他代码片段但没有任何工作，我有点不确定我如何“运行”代码。

我点击运行然后我得到了这个

我已经去了信任中心和启用的宏，但我仍然收到此错误？

//此问题已解决，我的信息中心未启用marcos

Answer 1

如果这是一个全新的数据库，那么它可能还没有“信任”。完全退出Access，然后再次尝试打开数据库。如果你看到像......这样的警告。

  

安全警告：某些活动内容已被停用。

...以及“启用内容”按钮，然后单击该按钮（以启用宏和VBA代码），然后再次尝试您的表单。

Answer 2

在您的VBA编辑器中执行以下操作：

1. 创建用户表单并将其重命名为 yourFormName
2. 在表单上创建一个按钮，并将其重命名为 yourButton
   

3. 双击按钮并粘贴以下
   Private Sub yourButton_Click()
MsgBox "hello world"
      Me.Hide
 End Sub
   

4. 插入模块并将此代码粘贴到
   Sub RunMain()
       With yourFormName
       yourFormName.Show
       Unload yourFormName
End With
End Sub
   

5. 运行RunMain宏，然后单击按钮！

Answer 3

当MS Access首次在桌面上打开并且其中包含VBA时，您需要启用该代码。在MS Access 2010中，文件 - ＆gt;选项 - ＆gt;信托中心 - ＆gt;宏设置以及ActiveX设置。安全保姆 - 统计员设置了默认设置，因此除非您特别允许，否则VBA将无法运行。