office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

RunCommand動畵集-acCmdFilterExcludingSelection 篩選窗體上非選中的數據

2019-09-17 17:04:00
tmtony8
原創
4276

在應用程序中, 我們都需要篩選窗體或者子窗體上的數據。如下麵的示例,篩選選中的值

按選中的字段值篩選子窗體上的數據

當然我們也可以反曏選擇,篩選非選中的值的數據。通過排除與上一箇選定的字段數據匹配的來篩選窗體上的數據

如下圖,選中子窗體中的數據,篩選其沒有匹配的數據,詳細代碼如下

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



    分享