我在 MS Access 中有一个分割表单，其中我插入了多个命令按钮。
从左到右依次为：
- （A）cmdClearAllFilter
- （B）cmdFilterBySelection
- （C）cmdFilterByForm
- （D）cmdToggleFilter
我希望这些按钮能够执行与功能区中的按钮完全相同的操作。
我让 (A) 和 (C) 与以下 VB 一起工作：
Private Sub cmdClearAllFilter_Click()
DoCmd.RunCommand acCmdRemoveFilterSort
End Sub
Private Sub cmdFilterByForm_Click()
DoCmd.RunCommand acCmdFilterByForm
End Sub
但是我仍然对（B）和（D）感到困惑，我希望它们的行为就像单击下面标记的功能区中的按钮一样（最好使用DoCmd.RunCommand自定义 VB）：
对于（B），我尝试了：
Private Sub cmdFilterBySelection_Click()
DoCmd.RunCommand acCmdFilterBySelection
End Sub
我无法描述它的行为，因为我不完全理解它的作用。我只能得出一个结论：它的行为不像功能区按钮（下拉菜单在标记的单元格/字段/属性/值上提供 4 个筛选选项）。
对于（D），我尝试了：
Private Sub cmdToggleFilter_Click()
DoCmd.RunCommand acCmdToggleFilter
End Sub
这有两个问题：
- 在功能区中的“实际切换过滤器”按钮被单击一次之前，该按钮不可单击。
- 如果功能区按钮不可用（变灰），单击命令按钮将导致错误，我认为可以通过以下方式解决：
On Error Resume Next。
任何帮助或指导都将不胜感激。
使用 FilterBySelection 时，点击按钮会将焦点从数据控件移开，Access 不知道该使用哪个参数。需要将焦点返回到点击按钮前最后获得焦点的控件。请尝试：
如果您想触发下拉菜单来选择：
对于切换过滤器，我使用了：
Me.FilterOn = Not Me.FilterOn但是，如果不单击功能区上的“切换”或右键单击菜单 >“应用过滤器/排序”，我就找不到使用 FilterByForm 的方法。