vba - VBA：从子调用函数

Question

Private Function DisplayReport()
    DoCmd.OpenReport List0, acViewNormal
End Function

Private Sub Command3_Click()

End Sub

我试图弄清楚单击 Command3 时如何调用 DisplayReport()（这是在 Access 2010 中）。

我希望这将打开当前在 List0（列表框）中选择的报告。这是正确的做法吗？

编辑：我想我从其他地方的阅读中了解到这是一个“受信任的位置”问题？这是什么意思，我该如何解决？

score 1 · Accepted Answer

您Sub Command3_Click的不包含可执行语句。尝试

Private Sub Command3_Click()
    DisplayReport
End Sub

此外，验证On Click按钮的事件属性是否与处理程序相关联。如果该行为空，请单击省略号按钮 [...] 并选择“代码生成器”。

编辑

如果您进行了这些更改并且事件仍然没有触发，则关闭并重新打开数据库。如果您在“访问”窗口顶部附近看到一条警告，上面写着...

安全警告某些活动内容已被禁用。点击了解更多详情。

...然后请务必单击“启用内容”按钮。

score 0 · Accepted Answer

0

你试过这个吗？

Call DisplayReport

于 2013-04-07T16:51:38.120 回答

score 0 · Accepted Answer

  私人子展示报告
      DoCmd.OpenReport List0, acViewNormal
  结束子

因此从点击处理程序调用它：

    私有子 Command3_Click()
        调用显示报告
    结束子

score 0 · Accepted Answer

好的，这是我在使用 Access 2010 时遇到的问题。问题是我的数据库不受信任。我设法更改了此设置，现在代码运行良好。