Tùy chọn
Thông báo hạn hết hạn báo cáo
- Thông báo hạn hết hạn báo cáo
-
RE: Thông báo hạn hết hạn báo cáo
minhhvm94@gmail.com > 12-08-20, 12:58 PM
(11-08-20, 03:05 PM)ongke0711 Đã viết:
Cảm ơn bác. Về phần query em làm chạy được rồi. Bác có nói thêm phần code mà sao em thêm đoạn code vào chỉnh sửa chạy load form nó lỗi ta.(11-08-20, 02:37 PM)minhhvm94@gmail.com Đã viết:
Mã PHP:"SELECT DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao"
Cảm ơn bác. Em muốn dùng query thì để nó riêng biệt được không bác?
Ý "riêng biệt" là sao bạn? Muốn hiện thông báo chỉ có cách dùng code VBA.
Còn việc hiện danh sách thì dùng Query ngon lành thôi.
Copy câu lệnh này dán vào Query Design SQL View:
SELECT *, DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao WHERE [SoNgayToiHan] <=3;
Dùng điều kiện: WHERE [SoNgayToiHan] <=3 để lọc những dòng có ngày tới hạn trong vòng 3 ngày tính từ ngày mở ứng dụng. Bạn tuỳ chỉnh số ngày này.
(Ps: phần code bài trước tôi làm sai phần câu lệnh SQL, đã sửa lại)
Phần code của em đây:
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim s As String
s = "SELECT DateDiff("d", Date(),[TGiamDenNgay]) As SoNgayToiHan FROM tblTamGiam WHERE [SoNgayToiHan] <=3 "
Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
If rs.EOF And rs.BOF Then Exit Sub
Select Case rs!SoNgayToiHan
Case Is > 0
MsgBox "Còn " & rs!SoNgayToiHan & " ngay bao cao."
Case Is = 0
MsgBox "hom nay toi bao cao."
Case Is < 0
MsgBox "Ðã quá h?n báo cáo " & rs!SoNgayToiHan & " ngay."
End If
rs.Close
Set rs = Nothing
End Sub -
RE: Thông báo hạn hết hạn báo cáo
ongke0711 > 12-08-20, 01:03 PM
(12-08-20, 12:58 PM)minhhvm94@gmail.com Đã viết: Cảm ơn bác. Về phần query em làm chạy được rồi. Bác có nói thêm phần code mà sao em thêm đoạn code vào chỉnh sửa chạy load form nó lỗi ta.
Bạn phải sửa tên Field, tên Table tương ứng với file thực tế của bạn.
Nó báo lỗi gì, bạn chụp hình gửi lên đây và dòng code bị báo lỗi. -
RE: Thông báo hạn hết hạn báo cáo
minhhvm94@gmail.com > 12-08-20, 03:58 PM
(12-08-20, 12:58 PM)minhhvm94@gmail.com Đã viết:
(11-08-20, 03:05 PM)ongke0711 Đã viết:
Cảm ơn bác. Về phần query em làm chạy được rồi. Bác có nói thêm phần code mà sao em thêm đoạn code vào chỉnh sửa chạy load form nó lỗi ta.(11-08-20, 02:37 PM)minhhvm94@gmail.com Đã viết:
Mã PHP:"SELECT DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao"
Cảm ơn bác. Em muốn dùng query thì để nó riêng biệt được không bác?
Ý "riêng biệt" là sao bạn? Muốn hiện thông báo chỉ có cách dùng code VBA.
Còn việc hiện danh sách thì dùng Query ngon lành thôi.
Copy câu lệnh này dán vào Query Design SQL View:
SELECT *, DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao WHERE [SoNgayToiHan] <=3;
Dùng điều kiện: WHERE [SoNgayToiHan] <=3 để lọc những dòng có ngày tới hạn trong vòng 3 ngày tính từ ngày mở ứng dụng. Bạn tuỳ chỉnh số ngày này.
(Ps: phần code bài trước tôi làm sai phần câu lệnh SQL, đã sửa lại)
Phần code của em đây:
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim s As String
s = "SELECT DateDiff("d", Date(),[TGiamDenNgay]) As SoNgayToiHan FROM tblTamGiam WHERE [SoNgayToiHan] <=3 "
Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
If rs.EOF And rs.BOF Then Exit Sub
Select Case rs!SoNgayToiHan
Case Is > 0
MsgBox "Còn " & rs!SoNgayToiHan & " ngay bao cao."
Case Is = 0
MsgBox "hom nay toi bao cao."
Case Is < 0
MsgBox "Ðã quá h?n báo cáo " & rs!SoNgayToiHan & " ngay."
End If
rs.Close
Set rs = Nothing
End Sub
[img=11x11]Untitled[/img] -
RE: Thông báo hạn hết hạn báo cáo
KheNgot > 12-08-20, 10:06 PM
(11-08-20, 03:18 PM)tranthanhan1962 Đã viết: Làm query như vầy (Căn cứ công thức của Xuân Thanh)
![[Hình: CyN8JoB.png]](https://i.imgur.com/CyN8JoB.png)
Field ThongBao: Date()=Ngày hiện tại của hệ thống =11/08/2020
ThongBao: ThongBao: IIf([NgayDenHan]-Date()=0;"Đã đến ngày báo cáo";IIf([NgayDenHan]-Date()<3;"Gần đến hạn báo cáo";IIf([NgayDenHan]-Date()<0;"Đã quá hạn báo cáo";"")))
Em tình cờ xem được bài này. Em làm demo này test thử thì thấy lỗi này nên em đưa bài lên đây nhờ anh xem dùm cho em là lỗi gì ạ.
Link: https://bit.ly/3fUb8cw
Query chưa cho kết quả đúng với các điều kiện ạ.
Em cám ơ nhiều! -
RE: Thông báo hạn hết hạn báo cáo
minhhvm94@gmail.com > 13-08-20, 03:43 PM
(12-08-20, 03:58 PM)minhhvm94@gmail.com Đã viết:
(12-08-20, 12:58 PM)minhhvm94@gmail.com Đã viết:
(11-08-20, 03:05 PM)ongke0711 Đã viết:
Cảm ơn bác. Về phần query em làm chạy được rồi. Bác có nói thêm phần code mà sao em thêm đoạn code vào chỉnh sửa chạy load form nó lỗi ta.(11-08-20, 02:37 PM)minhhvm94@gmail.com Đã viết:
Mã PHP:"SELECT DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao"
Cảm ơn bác. Em muốn dùng query thì để nó riêng biệt được không bác?
Ý "riêng biệt" là sao bạn? Muốn hiện thông báo chỉ có cách dùng code VBA.
Còn việc hiện danh sách thì dùng Query ngon lành thôi.
Copy câu lệnh này dán vào Query Design SQL View:
SELECT *, DateDiff("d", Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao WHERE [SoNgayToiHan] <=3;
Dùng điều kiện: WHERE [SoNgayToiHan] <=3 để lọc những dòng có ngày tới hạn trong vòng 3 ngày tính từ ngày mở ứng dụng. Bạn tuỳ chỉnh số ngày này.
(Ps: phần code bài trước tôi làm sai phần câu lệnh SQL, đã sửa lại)
Phần code của em đây:
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim s As String
s = "SELECT DateDiff("d", Date(),[TGiamDenNgay]) As SoNgayToiHan FROM tblTamGiam WHERE [SoNgayToiHan] <=3 "
Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
If rs.EOF And rs.BOF Then Exit Sub
Select Case rs!SoNgayToiHan
Case Is > 0
MsgBox "Còn " & rs!SoNgayToiHan & " ngay bao cao."
Case Is = 0
MsgBox "hom nay toi bao cao."
Case Is < 0
MsgBox "Ðã quá h?n báo cáo " & rs!SoNgayToiHan & " ngay."
End If
rs.Close
Set rs = Nothing
End Sub
[img=11x11]Untitled[/img]
Ah bác cho em thêm trường hợp này. Nếu như một báo cáo đó đã nhắc nhở rồi. Mình muốn nó k hiện lên nữa trong query. Chỉ hiện lên Những nhắc nhở các báo cáo tiếp. Còn báo cáo đã nhắc nó sẽ k hiện mà nó chỉ phục vụ cho việc thống kê số lượng báo cáo đã quá hạn trong năm hoặc một thời điểm thống kê thì sao bác nhỉ -
RE: Thông báo hạn hết hạn báo cáo
KheNgot > 23-08-20, 08:34 AM
(12-08-20, 10:06 PM)KheNgot Đã viết:
(11-08-20, 03:18 PM)tranthanhan1962 Đã viết: Làm query như vầy (Căn cứ công thức của Xuân Thanh)
Field ThongBao: Date()=Ngày hiện tại của hệ thống =11/08/2020
ThongBao: ThongBao: IIf([NgayDenHan]-Date()=0;"Đã đến ngày báo cáo";IIf([NgayDenHan]-Date()<3;"Gần đến hạn báo cáo";IIf([NgayDenHan]-Date()<0;"Đã quá hạn báo cáo";"")))
Em tình cờ xem được bài này. Em làm demo này test thử thì thấy lỗi này nên em đưa bài lên đây nhờ anh xem dùm cho em là lỗi gì ạ.
Link: https://bit.ly/3fUb8cw
Query chưa cho kết quả đúng với các điều kiện ạ.
Em cám ơ nhiều!
Mọi người xem giúp em bài này nhé. Em tìm mãi không ra lỗi a.
Em cám ơn nhiều! -
RE: Thông báo hạn hết hạn báo cáo
ongke0711 > 23-08-20, 11:33 AM
(23-08-20, 08:34 AM)KheNgot Đã viết: Em tình cờ xem được bài này. Em làm demo này test thử thì thấy lỗi này nên em đưa bài lên đây nhờ anh xem dùm cho em là lỗi gì ạ.
Link: https://bit.ly/3fUb8cw
Query chưa cho kết quả đúng với các điều kiện ạ.
Em cám ơ nhiều!
Mọi người xem giúp em bài này nhé. Em tìm mãi không ra lỗi a.
Em cám ơn nhiều!
Bạn xem lại logic trong mệnh đề IIF.
IIf([NgayDenHan]-Date()<2,"Gần đến hạn báo cáo" ==> số âm cũng nằm trong trường họp này
(quá hạn) (đến) (gần) (còn lâu)
-------------[0]-----[2]------------------ -
RE: Thông báo hạn hết hạn báo cáo
tranthanhan1962 > 23-08-20, 10:36 PM
![[Hình: pG6UTAo.png]](https://i.imgur.com/pG6UTAo.png)
-
RE: Thông báo hạn hết hạn báo cáo
minhhvm94@gmail.com > 30-08-20, 05:39 PM
bác ongke0711. Có thể giúp em xem lại phần code mà bác đã chia sẻ em được không? Vì lý do em thử mà bị lỗi. Rất mong được bác hỗ trợ
https://drive.google.com/file/d/1CH5pPyx...sp=sharing -
RE: Thông báo hạn hết hạn báo cáo
ongke0711 > 30-08-20, 07:30 PM
(30-08-20, 05:39 PM)minhhvm94@gmail.com Đã viết: bác ongke0711. Có thể giúp em xem lại phần code mà bác đã chia sẻ em được không? Vì lý do em thử mà bị lỗi. Rất mong được bác hỗ trợ
https://drive.google.com/file/d/1CH5pPyx...sp=sharing
File bạn chưa share full quyền nên không download được nhé