اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


RAGABFAROUK
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

السلام عليكم

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

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

تحياتي

رابط هذا التعليق
شارك

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

1.png

3.png

2.png

رابط هذا التعليق
شارك

ضعه في حدث

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

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


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

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

تحياتي

رابط هذا التعليق
شارك

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

مشكلة تحميل.png

مشكلتي.png

رابط هذا التعليق
شارك

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه 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

تحياتي

تم تعديل بواسطه محمد أبوعبدالله
  • Like 2
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information