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

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

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

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

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

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