office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

access筛选窗体记录

2020-07-05 08:00:00
tmtony8
原创
202

在access程序中,我们对数据进行查询筛选。

如图,在连续窗体中,我们通过一个金额数值范围来筛选数据。


    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strje As String
    Dim strje1 As String
    Dim strje2 As String
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("销售记录", dbOpenDynaset)

'设置筛选参数
    strje1 = "[金额]>=" & txt1
    strje2 = "[金额]<=" & txt2
    strje = strje1 & " and " & strje2 
'执行筛选操作
    rs.Filter = strje 
    Set rs = rs.OpenRecordset
    Set Me.Recordset = rs
    Me.Requery
    End If
    Set rs = Nothing
    Set db = Nothing


    分享