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