office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access篩選記録後動態打印報錶

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

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

在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



打印結果:報錶動態的顯示篩選後的結果

    分享