access筛选窗体记录

在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