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

2019-09-01 00:36:00
tmtony8
原創
279

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

可蔘考此示例《Access動態設置子窗體及篩選子窗體數據的技巧

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

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

    分享