Lọc dữ liệu để in theo ngày (1 người xem)

[traitaotau]

mỗi ngày mình lập khoảng 100 hoá đơn, cuối ngày phải in ra những hóa đơn đã tạo trong ngày đó. trong table minh phải lọc như thế nào?hay là tạo điều kiện lọc như thế nào để hiệu quả nhất vậy. Xin mọi người giúp

 

[Hai Lúa Miền Tây]

mỗi ngày mình lập khoảng 100 hoá đơn, cuối ngày phải in ra những hóa đơn đã tạo trong ngày đó. trong table minh phải lọc như thế nào?hay là tạo điều kiện lọc như thế nào để hiệu quả nhất vậy. Xin mọi người giúp

Vậy phải coi dữ liệu của bạn như thế nào mới biết được.

 

[mctydieu]

Mình nghĩ bạn nên gửi file dữ liệu lên diễn đàn, để các Thầy cô, Anh Chị xem rồi mới có cách giúp bạn chứ.

 

[traitaotau]

Mọi xem giúp và hướng dẫn

 

[Hai Lúa Miền Tây]

Mọi xem giúp và hướng dẫn

Đầu tiên bạn lưu ý là trường ngay phải chỉnh về định dạng ngày tháng thay vì bạn chỉnh là Text nhé.

Các bước như sau:

1. Tạo 1 Query với tên là QrA1 như sau:

SELECT A1.STT, A1.Hotenkh, A1.mahd, A1.ngay
FROM A1
WHERE (((A1.ngay)>=[forms]![form1].[begindate] And (A1.ngay)<=[forms]![form1].[Enddate]));

2. Tạo Form có tên là Form1

- Vẽ 2 textbox có tên là BeginDate và EndDate, Thiết lập Input Mask cho 2 textbox này là 00/00/0000;0;_
- Vẽ 2 Command Button có tên là:
+ Command0: Caption: Tuy Vấn
+ cmdXem
- Vẽ 1 SubForm có tên là Sub
Code cho

Private Sub Command0_Click()
On Error Resume Next
If IsDate(BeginDate) And IsDate(EndDate) Then
   Forms!form1.Sub.SourceObject = "Query.QrA1"
Else
MsgBox "Ban phai kiem tra lai moc thoi gian nhe", vbInformation, "Information"
Me.BeginDate.SetFocus
End If

End Sub
Private Sub cmdXem_Click()
On Error Resume Next
    DoCmd.OpenReport "QrA1", acPreview


End Sub

form

3. Tạo 1 Report có tên là QrA1, Source cũng là QrA1

Code trong Report:

Private Sub Report_NoData(Cancel As Integer)
   MsgBox "Khong co gi de in het.", vbExclamation, Me.Caption
   Cancel = -1
End Sub

Bạn xem thêm file nhé.