استاذنا الكبير جعفر عمل لي كود ممتاز جدا
وهو رساله بوجود الدواء بالوصفه الحاليه لتلافي منع تكرار كتابة الدواء
لكن اريد ان اعمل رساله بان المريض الحالي قد استخدم هذا الدواء سابقا و بتاريخ
سبق واستخدمت هذا الكود في النموذج الفرعي قبل التحديث
لكن يعطي الرساله متاخره وكانه يتعارض مع الكود الاساسي
If DCount("*", "[tbl_Prescription]", "[DoseID]=" & Me.[DoseID]) > 0 Then
MsgBox " This Medication was used in " & Me.Visit_Date & CountNum & vbCrLf & _
"" & vbCrLf, vbOK, "ÊäÈíå"
Cancel = True
Me.Undo
End If