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