office交流網(wǎng)--QQ交流群號(hào)

Access培訓(xùn)群：792054000 Excel免費(fèi)交流群群：686050929 Outlook交流群：221378704

Word交流群：218156588 PPT交流群：324131555

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

2019-09-01 00:36:00

tmtony8

原創(chuàng)

5739

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

可參考此示例《Access動(dòng)態(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