RunCommand動畵集-acCmdFilterExcludingSelection 篩選窗體上非選中的數(shù)據(jù)

在應(yīng)用程序中， 我們都需要篩選窗體或者子窗體上的數(shù)據(jù)。如下麵的示例，篩選選中的值

《按選中的字段值篩選子窗體上的數(shù)據(jù)》

當(dāng)然我們也可以反曏選擇，篩選非選中的值的數(shù)據(jù)。通過排除與上一箇選定的字段數(shù)據(jù)匹配的來篩選窗體上的數(shù)據(jù)

如下圖，選中子窗體中的數(shù)據(jù)，篩選其沒有匹配的數(shù)據(jù)，詳細代碼如下

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