Chào mọi người!

Mình có from nhập liệu Họ tên và Số bảo hiểm y tế của người đó.
Mình muốn khi bấm nút "NEW" để thêm một lượt khám mới rồi bấm họ tên và số BHYT, 
Tiếp tục bấm nút "LƯU" thì hiện một thông báo 
" Bệnh nhân này đã khám cách đây 3 ngày, bạn có muốn cho khám để hưởng BHYT" 
yes thì lưu bệnh này, còn No thì không lưu bệnh này.

* Lưu ý: "3 ngày hay 10 hay 15 hay 100 ngày" ở đây được tính từ lần khám gần nhất đến ngày hiện tại.

Xin hỏi có cách nào không ạ?

Bạn dùng Dmax thử xem. Tìm ra ngày gần nhất sau đó dùng hàm DateDiff để tìm số ngày đến hiện tại.
VD:
NgayKhamTruoc=Dmax("NgayKham","Table phiếu khám","Mã bệnh nhân=" & Me.cboMaBenhNhan)
If NgayKhamTruoc >0 Then
    SoNgay=DateDiff("d", NgayKhamTruoc, Date())
Else
    Msgbox "Khám lần đầu"
End if

(27-06-16, 08:34 PM)ongke0711 Đã viết: Bạn dùng Dmax thử xem. Tìm ra ngày gần nhất sau đó dùng hàm DateDiff để tìm số ngày đến hiện tại.
VD:
NgayKhamTruoc=Dmax("NgayKham","Table phiếu khám","Mã bệnh nhân=" & Me.cboMaBenhNhan)
If NgayKhamTruoc >0 Then
    SoNgay=DateDiff("d", NgayKhamTruoc, Date())
Else
    Msgbox "Khám lần đầu"
End if

Hiểu sơ sơ. nhưng chưa biết áp dụng.

Mình có 
+ "table 1" chứa 3 trường Họ tên, số BHYT, ngày khám
+ "from 1" chứa nguồn là "table 1", có các nút lệnh THÊM/ XÓA/ LƯU/ KHÔNG


Hôm nay mình THÊM mới 1 bệnh số bảo hiểm là DN010121315623 thì báo là "khám lần đầu"
Ngày mai thêm lại và bấm LƯU  thì nó báo "đã khám cách đây 1 ngày"

Lay hoay mãi không hiểu làm thế nào

- Nếu bạn dựa vào mã thẻ BHYT thì tôi sợ nó cũng không phải là duy nhất để phân biệt bênh nhân vì nếu đổi cty thì mã thẻ BHYT cũng đổi, mua bảo hiểm tự nguyện hình như cũng thay đổi. Do vậy nếu gặp trường hợp mới đổi thẻ BHYT thì ứng dụng sẽ báo là "mới khám lần đầu" ngay.
- Nếu dùng mã thẻ BHYT thì hàm Dmax bạn đổi lại chút.
--------------------------
Private cmdLuu_Click()
      Dim NgayKhamTruoc As Date, SoNgay As Integer

      NgayKhamTruoc=Dmax("NgayKham","Table1","[MaBHYT] = '" & Me.txtMaBHYT & "'")
      If Not IsNull(NgayKhamTruoc) Then
             SoNgay=DateDiff("d", NgayKhamTruoc, Date())
             Msgbox "Da kham cach day " & SoNgay & " ngay!", vbInformation, "Thong bao"
             ...  
      Else
             Msgbox "Khám lần đầu"
             ...
      End if
End Sub

Ongke nói đúng rồi. số thẻ nó còn thay đổi theo năm nữa. tốt nhất là bạn quản lý theo số CMT như vậy thì không có lẫn thằng nào được. và áp dụng code của Ongke là hoàn toàn chính xác.

(28-06-16, 07:02 PM)zinzin8x Đã viết: Ongke nói đúng rồi. số thẻ nó còn thay đổi theo năm nữa. tốt nhất là bạn quản lý theo số CMT như vậy thì không có lẫn thằng nào được. và áp dụng code của Ongke là hoàn toàn chính xác.

vậy thì mình áp dụng vào chứng minh thư vậy! để mình làm xong úp demon lên cho mọi người xem thử được chưa

Mai nó thay đổi thành số định danh rồi, chuyển từ 9 số thành 12 số bạn à.

(03-07-16, 09:55 AM)cpucloi Đã viết: Mai nó thay đổi thành số định danh rồi, chuyển từ 9 số thành 12 số bạn à.

Bạn có nhầm với số CMND không?
Mã thẻ BHYT 2016 là 4 ô, 15 ký tự mà.
Có thể có thông tư mới tôi chưa biết 

Hj, ongke0711
Đấy là mình trả lời thanhtruong và zinzin8x mà

Với giải pháp kiểm tra và tránh trùng dữ liệu, bạn nên kiểm tra một số dữ liệu như Họ và tên, Ngày sinh, Giới tính ... (VD thế) xem có trùng không thì có thông báo.

(27-06-16, 11:35 PM)ongke0711 Đã viết: - Nếu bạn dựa vào mã thẻ BHYT thì tôi sợ nó cũng không phải là duy nhất để phân biệt bênh nhân vì nếu đổi cty thì mã thẻ BHYT cũng đổi, mua bảo hiểm tự nguyện hình như cũng thay đổi. Do vậy nếu gặp trường hợp mới đổi thẻ BHYT thì ứng dụng sẽ báo là "mới khám lần đầu" ngay.
- Nếu dùng mã thẻ BHYT thì hàm Dmax bạn đổi lại chút.
--------------------------
Private cmdLuu_Click()
      Dim NgayKhamTruoc As Date, SoNgay As Integer

      NgayKhamTruoc=Dmax("NgayKham","Table1","[MaBHYT] = '" & Me.txtMaBHYT & "'")
      If Not IsNull(NgayKhamTruoc) Then
             SoNgay=DateDiff("d", NgayKhamTruoc, Date())
             Msgbox "Da kham cach day " & SoNgay & " ngay!", vbInformation, "Thong bao"
             ...  
      Else
             Msgbox "Khám lần đầu"
             ...
      End if
End Sub

Mình đã áp dụng code này mà nó bị lỗi khi thêm mới một người  rồi bấm nút "kiểm tra"
Và "khám lần đầu" cũng không thông báo lên được
Xem lại giùm mình với!


Link demo Luu&thongbaotrung

P/s: Hiện tại mình lấy "HọTên" làm điều kiện trùng lặp, Khi nào mình biết rỏ cái nào là đúng (CMND hay Số định danh tên thẻ căn cước hay Số BHYT) thì mình chỉnh hàm lại.