Question

我有Microsoft Access Form，我有数据表，我希望能够在MBE模式下向表单添加过滤工具栏。注意MBE不在MDB的设计器模式中。即我想在分布式MBE文件上使用过滤器。

在Form.Open事件中，我添加了：

Private Sub Form_Open(Cancel As Integer)
  DoCmd.ShowToolbar "Ribbon", acToolbarYes
  DoCmd.ShowToolbar "ribbonMain", acToolbarYes
  DoCmd.ShowToolbar "Menu Bar", acToolbarYes

End Sub

我也试过

Private Sub Ctl__Click()
  Dim db As DAO.Database
  Dim prop As DAO.Property
  Set db = CurrentDb()
  DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub

此外，访问按钮 - ＆gt; Access Opiton - ＆gt;当前数据库在功能区和工具栏选项下：选中允许的内置工具栏。此外，功能区名称是“ribbonMain”。

我仍然无法在Form顶部看到工具栏。我在代码或访问页面设置中缺少什么。我在MS Access 2003上运行。我真的希望在部署的MBE文件中的表的设计模式中看到相同的过滤。

Answer 1

我建议将代码放在On load中，甚至DoCmd.ShowToolbar "Ribbon", acToolbarYes也可能导致访问2003中的错误。当我构建数据库时，我觉得这篇文章很有帮助。 http://www.access-programmers.co.uk/forums/showthread.php?t=97578

MS Access将过滤工具栏添加到表单

1 个答案: