مساعدة في من تكرار

[عبدالقدوس48]

السلام عليكم ورحمة الله تعالى وبركاته  

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

[kkhalifa1960]

تفضل أخي .

Private Sub Patient__Name_BeforeUpdate(Cancel As Integer)
Dim NameFd
NameFd = Me.Patient__Name
Dim a
a = DLookup("[Patient_Name]", "PatientsData", "[Patient_Name]='" & Me.Patient_Name & "'")
If Not (IsNull(a)) Then
MsgBox "This Name : (  " + NameFd + "  )  registered before " + vbNewLine + vbNewLine + "    It cannot be repeated " + vbLf + vbLf + " pre-recorded records ", vbCritical + vbMsgBoxRight, "ÃäÜÜÊÈÇå : Warning"
Cancel = True
Me.Undo
DoCmd.FindRecord NameFd
End If

End Sub

 

[Eng.Qassim]

مشاركة مع استاذ @kkhalifa1960

 

Rejected Employee.rar

[متقاعد]

ماشاء الله عمل جميل للاساتذة الكرام

اعتقد ان الافضل في مثل هذه الحالة استخدام رقم السجل الوطني او اي رقم غير قابل للتكرار حيث ان الاسم ممكن تكراره لاكثر من شخص

الامر الاخر استخدام ترقيم تلقائي سوف يتسبب في وجود ارقام مفقودة لذا استخدام ترقيم مخصص اكثر جدوى

اخيرا من الافضل ان يضع صاحب المشاركة مثال بسيط لمعرفة طريقة العمل لديه اختصار للوقت والجهد

وجهة نظر

[Eng.Qassim]

45 دقائق مضت, متقاعد said:

الافضل في مثل هذه الحالة استخدام رقم السجل الوطني او اي رقم غير قابل للتكرار

كلامك صحيح استاذ خالد ..انا عملت على المطلب فقط ويمكن للاخ صاحب الموضوع الاخذ بملاحظاتك لانها مهمة

[Ezril]

محاوله 

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

x لا فائدة من تغير ID استخدم count للعد (ID رقم تلقائي) 

استخدم دالة.   (1,0(x=x) IIF واكمل (((x=x ) لجميع الحقول للفحص كانت مكرره او مشروط مثل عمر معين او الى عمر او حالة اجتماعية او مؤهل وخبره اذا 1 او 0 ( Chack 2 بعد Chack 1 فتجمع ارقام الفحص  تساوي = MsgBOx and  ExitSub 

تستطيع تنوع بين دالتين IIF وDlookUp على جمع Dim Number_For_Chack

الاضافة بستعلام فقط من نموذج غير منضم 

او ابسط يكون Form Chack 1 ان يكون غير مكرر! باسم ورقم الهويه

وعند Form Chack 2 اذا لم يطابق الشروط حذف فقط وكل Form غير منضم

[عبدالقدوس48]

جزاكم الله خيرا هذا هو مطلوب أخي Eng.Qassim

[عبدالقدوس48]

تطبيقه على قاعدة البيانات كاملة مثل اللقب والاسم ابن وابن .....الخ Eng.Qassim

[عبدالقدوس48]

السلام عليكم

هذه قاعدة البيانات لي تعديل عليها عند ملئ البيانات بالكقاعدة البيانات.zipامل إذا كان مرفوض مسجل من قبل يطلع لك مساج هذا الموظف مرفوض وشكرا