Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thông báo dữ liệu đã tồn tại
#1
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 ạ?
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thanhtruong
#3
(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
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#4
- 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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thanhtruong
#5
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.
Chữ ký của zinzin8x zinzin8x,gia nhập Thủ Thuật Access từ 19-01 -16.
Reply
Những người đã cảm ơn thanhtruong
#6
(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
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Reply
Những người đã cảm ơn
#7
Mai nó thay đổi thành số định danh rồi, chuyển từ 9 số thành 12 số bạn à.
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(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  007
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
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.
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 125 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 140 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,350 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ