minhhvm94@gmail.com > 30-08-20, 08:52 PM
(30-08-20, 07:30 PM)ongke0711 Đã viết:(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é
ongke0711 > 31-08-20, 01:00 AM
(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
s = "SELECT DateDiff('d', Date(),[HanBaoCao]) As SoNgayToiHan FROM tblBaoCao WHERE [SoNgayToiHan] >0"
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 toi han bao cao."
Case Is = 0
MsgBox "Hôm nay toi bao cao."
Case Is < 0
MsgBox "Ðã quá h?n báo cáo " & rs!SoNgayToiHan & " ngày."
End Select
Trích dẫn: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;
Private Sub Form_Load()
Dim iBCQuaHan As Integer, iBCDenHan As Integer, iBCSapDenHan As Integer
Dim sThongBao As String
iBCQuaHan = DCount("ID_BaoCao", "tblBaoCao", "DateDiff('d', Date(),[HanBaoCao])<0")
iBCDenHan = DCount("ID_BaoCao", "tblBaoCao", "DateDiff('d', Date(),[HanBaoCao])=0")
iBCSapDenHan = DCount("ID_BaoCao", "tblBaoCao", "DateDiff('d', Date(),[HanBaoCao])>0 AND DateDiff('d', Date(),[HanBaoCao])<=3") 'Trong vòng 3 ngày
sThongBao = ""
If iBCQuaHan > 0 Then
sThongBao = "Có " & iBCQuaHan & " báo cáo quá han."
End If
If iBCDenHan > 0 Then
sThongBao = sThongBao & vbCrLf & "Có " & iBCDenHan & " báo cáo den han."
End If
If iBCSapDenHan > 0 Then
sThongBao = sThongBao & vbCrLf & "Có " & iBCSapDenHan & " báo cáo sap den han (trong vòng 3 ngày)."
End If
MsgBox sThongBao, vbInformation, "Thông báo"
End Sub
danhxetnghiem > 01-02-24, 11:19 AM
ongke0711 > 03-02-24, 11:04 PM
(01-02-24, 11:19 AM)danhxetnghiem Đã viết: Cho tôi hỏi 1 số câu, vì tôi làm trong ngành xét nghiệm nên có 1 số bệnh hẹn 2 thời điểm tái khám, sau 1 tháng và sau 6 tháng.
1. Thì xử lý 2 lần hẹn này như thế nào cho ổn trên 1 bệnh nhân.
2. Ví dụ: 5 bệnh gần đến ngày tái khám lần 1 thì cảnh báo lên. Lúc đó clik ok sẽ đi đến danh sách chỉ có 5 bệnh này thôi, sau đó xử lý các bước tiếp theo trên 5 bệnh này (hiện tại demo ở trên hiện hết danh sách ở "tblBaoCao")
DooHoaangPhuuc > 04-02-24, 02:46 PM