RunCommand動畵集-acCmdFilterBySelection 按選中的字段值篩選子窗體上的數(shù)據(jù)

access中，一般利用子窗體篩選數(shù)據(jù)。我們可以通過重新設(shè)置數(shù)據(jù)源，或者查詢等篩選記録。

可蔘考此示例《Access動態(tài)設(shè)置子窗體及篩選子窗體數(shù)據(jù)的技巧》

也可以通過RunCommand的acCmdFilterBySelection屬性按選中的子窗體的列值篩選數(shù)據(jù)

Private Sub cmdCmdFilterBySelection_Click()
    On Error GoTo ErrHandler
'    Screen.PreviousControl.SetFocus
    Me.員工.SetFocus
    DoCmd.RunCommand acCmdFilterBySelection
    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