Access篩選記錄后動態打印報表

2018-01-23 16:44:00
tmtony8
原創
4975

在工作生活中,數據量往往很大,我們一般都是數據篩選后才打印報表。

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


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


詳細代碼:

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



打印結果:報表動態的顯示篩選后的結果

    分享
    北京十一选五基本走势