منع تكرار الزياره لنفس المريض في نفس اليوم

[dr_bioman]

السلام عليكم جمعه مباركه عليكم جميعا

محتاج تعديل علي الكود في حدث بعد التحديث ل doctor في النموزج الفرعيrepeat.rar

في المرفق يوجد نموزج اسمه main

به نموزج فرعي يحتوي علي بيانات الزياره للمريض التاريخ ونوع الزياره سواء كشف( ك) او اعاده (ع) وهي في حق doctor

وحقل التاريخ ياخذ قيمته من تاريخ اليوم باستخدام كود بعد التحديث للdoctor

المطلوب اذا تم اختيار doctor سواء ك او ع 

لنفس المريض بنفس التاريخ يعطي رساله بان التاريخ مكرر ولا يقبل

بحثت كثيرا في الامثله هنا ومااستطعت التنفيذ

تم تعديل نوفمبر 19, 2021 بواسطه dr_bioman

[ابوخليل]

عليكم السلام

استبدل بهذا الكود

Private Sub Doctor_AfterUpdate()
Dim i As Date
Dim ni As Byte
i = Date
ni = DCount("rdate", "request", "[id]=[Forms]![main]![ID]" & " and rdate=#" & i & "#")
If ni > 0 Then
MsgBox ("مكرر")
Cancel = True
Else
rdate = i
End If
End Sub

 

[dr_bioman]

اشكرك استاذي ابوخليل

ولكن لي ملحوظه

عندما يكون التاريخ مكرر تظهر الرساله تمام

ولكن بيتم حذف رقم الزياره

فمثلا لو كانت اخر زياره هي رقم ٢٩٠ 

وظهرت الرساله وضغط المستخدم علي ok

بيتم حذف الزياره رقم ٢٩١

هل يمكن ان يكون كود التراجع cancel =true

او me. Undo

بشرط عدم مسح السجل؟ 

[ابوخليل]

عندي في مثالك المرفق لا يتم حذف السجل بل يخرج من الحدث فقط ويبقى الترقيم التلقائي الجديد ظاهر

ولو انتقلت الى مريض آخر سوف يبقى هذا الرقم في الجدول بدون بيانات سوى معرف المريض

وان قمت بحذف السجل سيختفي هذا الرقم من الجدول لانه ترقيم تلقائي .. ولن يعيد ادراج هذا الرقم  المحذوف

_________

ان اردت ان يبقى الرقم لاستخدامه مع مريض آخر  يجب عليك عمل ضابط بحيث لا يتم حفظ السجل

والطريقة هي ان تجعل حقل التاريخ في خصائص الجدول : مطلوب=نعم ، وتضع زر للخروج بدون حفظ

[dr_bioman]

اشكرك اخي ابوخليل

تم الاستعانه بدالة  1+nz(dmax) 

حتي يتم المحافظه دايما علي الترتيب في حالة حذف رقم الزياره

وتم تغيير نوع الحقل الي رقم بدلا من ترقيم تلقائي

 

[ابوخليل]

تمام

احسنت صنعا ، ينصح دوما وبشدة بعدم ادخال الترقيم التلقائي ضمن الحقول المعرفة عند تصميم الجدول