Giúp mình thông báo lỗi tìm kiếm (2 người xem)

[na_an]

Chào các bạn!
Hôm nay mình có vấn đề này nhờ các bạn giúp đỡ. Mình có một bảng tổng hợp số liệu của nhiều năm và một form tìm kiếm. Các bạn có cách nào mà khi mình chọn năm bất kỳ và tháng bất kỳ để thống kê nếu năm mình chọn không có tháng đó thì sẽ hiện dòng thông báo: Năm này tháng bạn chọn chưa có dữ liệu. Ví dụ khi mình chọn năm thống kê là năm 2011 và tháng thống kê là tháng 10 thì sẽ có dòng thông báo như trên.
Các bạn xem file mình gửi kèm nhé.
Cảm ơn các bạn nhiều!

 

[sealand]

Mình không rõ yêu cầu của bạn lắm, nhưng bạn có thể dùng code sau nếu năm đã chọn và tháng đã chọn mà không có dữ liệu sẽ hiện thông báo

Private Sub Combo5_AfterUpdate()
Dim dem As Long
dem = DCount("ngay", "tonghop", "month(ngay)=val(Combo5) and year(ngay)=val(Combo3)")
If dem = 0 Then
MsgBox "Thang " & Combo5 & "/" & Combo3 & " khong co du lieu"
Combo5 = ""
Exit Sub
End If
End Sub

 

[na_an]

Mình không rõ yêu cầu của bạn lắm, nhưng bạn có thể dùng code sau nếu năm đã chọn và tháng đã chọn mà không có dữ liệu sẽ hiện thông báo

Private Sub Combo5_AfterUpdate()
Dim dem As Long
dem = DCount("ngay", "tonghop", "month(ngay)=val(Combo5) and year(ngay)=val(Combo3)")
If dem = 0 Then
MsgBox "Thang " & Combo5 & "/" & Combo3 & " khong co du lieu"
Combo5 = ""
Exit Sub
End If
End Sub

Đúng ý mình rồi đấy. Mình làm được rồi. Cảm [n bạn nhé.

 

[ThuNghi]

Mình không rõ yêu cầu của bạn lắm, nhưng bạn có thể dùng code sau nếu năm đã chọn và tháng đã chọn mà không có dữ liệu sẽ hiện thông báo

Private Sub Combo5_AfterUpdate()
Dim dem As Long
dem = DCount("ngay", "tonghop", "month(ngay)=val(Combo5) and year(ngay)=val(Combo3)")
If dem = 0 Then
MsgBox "Thang " & Combo5 & "/" & Combo3 & " khong co du lieu"
Combo5 = ""
Exit Sub
End If
End Sub

Anh Sealand ơi, em thử dùng recordset để tìm kiếm và ok thì gán xuống form nhưng em chưa biết biết cách gán.
Anh HD giúp em và dùng recordset như vậy có cần thiết?
Em đang tập tành làm Acc.
Cám ơn Anh.

 

[sealand]

Sao Thu Nghi lại đi lòng vòng thế này, nếu là VB thì có thể chứ Access nó hỗ trợ các công cụ nhanh, mạnh và dễ dàng tích hợp vào form của Access như DAO hay Query. Cách mà Thu Nghi làm nên hiển thị trên Listview, ListBox, Datagrid v.v...sau đó ta dùng code để tạo nguồn khi Runtime hay nạp cho nó.
Còn trong Form này nó là đối tượng Bound, tức là nó dựa trên 1 Table hay Query nào đó. Muốn nạp cho Form dạng này ta nên tạo cho nó 1 Table tạm làm nguồn cho Form, khi load dữ liệu ta dùng Query xoá Table rồi dùng SQL Select into để nạp cho Table tạm. Như vậy dữ liệu sẽ load lên các ô Bound của Form hay datasheet của Table. Nói chung cách này để tham khảo thôi chứ dùng cực chẳng đã, cửa chính đã mở cho mình rồi mà vẫn phải mở cửa phụ để lấy đồ.