Access篩選記錄后動態(tài)打印報表

在工作生活中，數(shù)據(jù)量往往很大，我們一般都是數(shù)據(jù)篩選后才打印報表。

在Access報表中，如何通過查詢篩選出記錄，再打印篩選好的記錄呢？

如圖所示：在窗體中設置兩個日期篩選文本框，輸入這兩個日期，獲取這兩個日期之間的數(shù)據(jù)。按“查詢”篩選數(shù)據(jù)，再打印出該條件下的記錄

詳細代碼：

Private Sub Command5_Click()
   Dim strSql As String
   strSql = "Select * from 表1 where 供應時間 between #" & Me.Text1 & "#  and #" & Me.Text3 & "# "
   Me.子窗體.Form.RecordSource = strSql
   Me.子窗體.Form.Requery
End Sub

Private Sub Command6_Click()
    DoCmd.OpenReport "表1", acViewPreview, , "供應時間 between #" & Me.Text1 & "#  and #" & Me.Text3 & "#"
End Sub

打印結(jié)果：報表動態(tài)的顯示篩選后的結(jié)果