RunCommand动画集-acCmdFilterBySelection 按选中的字段值筛选子窗体上的数据

2019-09-01 00:36:00
tmtony8
原创
354

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

    分享