طلب مساعدة في كتابة كود عدم تكرار كشف للمريض

[RAGABFAROUK]

ممكن كود يوضح  عدم تكرار كشف للمريض في نفس اليوم واعطاء رسالة بوجود كشف في نفس اليوم لنفس المريض ول ا يسجل بيانات الكشف 

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

If DCount("*", "tbl1", "Patient=" & Patient & " and [disclosure_date] = #" & me.disclosure_date & "#") > 0 Then
MsgBox "مكرر", vbInformation, "تحذير"
Cancel = True
End If

تحياتي

[RAGABFAROUK]

اخي الكريم أ, محمد عبد الله ..جزاك الله خيراً .. اشكر اهتمامك الكريم 
وارجو ان تساعدني :
1-  اين اضع هذ الكود انا وضعته فى حدث عند after update ومرة عند on error
ولكن مازل تكرار الكشف موجود ويؤثر على التقرير المالي
ومرسل لك صور الموضوع لو امكن مساعدتي 
وشكراً لمجهودك الكريم

[محمد أبوعبدالله]

ضعه في حدث

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

ولكن قبل ذلك لا بد من الانتباه وتغيير التالي حسب برنامجك

tbl1 = اسم الجدول
Patient = اسم المريض ونوعه رقم
disclosure_date = حقل التاريخ

ولو وضعت الجزء الذي به المشكلة من البرنامج في مثال لكن ايسر لنا ولك اخي الكريم

تحياتي

[RAGABFAROUK]

الاخ الفاضل  م. محمد عبد الله .. لقد نفذت الخطوات كما وجهتني حضرتك إلا انه تظهر رسالة تغلق الكود وتحذف البيانات .. ولقد ارفقت لك نسخة من البرنامج ولكن غير مسموح لي بتحميل ملف 1.5 ميجاكما ظهرت الرسالة المرفقة
ولك كل التقدير والشكر على مجهودك الكريم 
فما الحل.. ارجو ان تكمل جميلك وممكن تدخل معيany diskلو وقتك يسمح ...تقل محبتي
 

[محمد أبوعبدالله]

8 ساعات مضت, RAGABFAROUK said:

ولقد ارفقت لك نسخة من البرنامج ولكن غير مسموح لي بتحميل ملف 1.5 ميجاكما ظهرت الرسالة المرفقة

اخي الكريم اضغط الملف باي برنامج مثل winrar سوف يتقلص الحجم كثيرا

تحياتي

[RAGABFAROUK]

اخي الكريم م. محمد ابو عبد الله ... اشكر تواضعك الكريم وطيب اخلاقك واهتمامك
وارفق لك البرنامج وهو على اكسس 2010 - وندوز 7- والجميع نواة 32

مشكلة تكرار الكشف فى نفس اليوم.rar

تم تعديل يونيو 28, 2020 بواسطه RAGABFAROUK

[محمد أبوعبدالله]

تفضل اخي الكريم

والمشكلة كما ذكرت لك في اسماء الحقول

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If DCount("*", "ExaminationT", "Patient=" & Forms!All_Data!Patient_id & " and [DataEntryDate] = #" & Me.Date_Examination & "#") > 0 Then
        MsgBox "تاريخ الزيارة مكرر", vbInformation, "تحذير"
        Cancel = True
    End If
End Sub

مشكلة تكرار الكشف فى نفس اليوم.rar

تحياتي

تم تعديل يونيو 28, 2020 بواسطه محمد أبوعبدالله

[RAGABFAROUK]

اخي الكريم الإنسان الفاضل م. محمد ابو عبد الله ... بفضل الله ثم بمجهودك الطيب تم حل المشكلة 
لك كل التقدير والإحترام والمحبة واسأل الله أن يبارك فيك ويزيدك حلماً وعلماً.. ودمت معطاءً
تحياتي

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

والحمد لله على حل المشكلة

تحياتي