RunCommand动画集-acCmdFilterExcludingSelection 筛选窗体上非选中的数据

2019-09-17 17:04:00
tmtony8
原创
195

在应用程序中, 我们都需要筛选窗体或者子窗体上的数据。如下面的示例,筛选选中的值

按选中的字段值筛选子窗体上的数据

当然我们也可以反向选择,筛选非选中的值的数据。通过排除与上一个选定的字段数据匹配的来筛选窗体上的数据

如下图,选中子窗体中的数据,筛选其没有匹配的数据,详细代码如下

Private Sub cmdCmdFilterExcludingSelection_Click()
    On Error GoTo ErrHandler
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFilterExcludingSelection
    Exit Sub
ErrHandler:
    Select Case Err.Number
    Case 2046 'Filter not available at moment
        MsgBox "Command not available"
    Case Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End Select
End Sub



    分享