Access篩選記録後動態(tài)打印報錶

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

在Access報錶中，如何通過查詢篩選齣記録，再打印篩選好的記録呢？

如圖所示：在窗體中設(shè)置兩箇日期篩選文本框，輸入這兩箇日期，穫?cè)∵@兩箇日期之間的數(shù)據(jù)。按“查詢”篩選數(shù)據(jù)，再打印齣該條件下的記録

詳細(xì)代碼：

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

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

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