مساعدة فى عدم تكرار قيمة حقل معين

[palesten]

 الاعزاء الخبراء @jjafferr  @Eng.Qassim

هذا النموذج مرتبط بجدول

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

الا يتقبله الحقل عند كتابة رقم الهوية الموجود لشخص مسبقا ولا يسمح بالانتقال لتعبئة باقى حقول النموذج الا برقم هوية جديد ليس موجود مسبقا

مرفق القاعدة

system.rar

[Ahmed_J]

اخي العزيز

هذا الكود يعمل شو هي المشكلة عندك فية

Dim X
Dim i
i = DLookup("[الاسم]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[اسم الاب]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[العائلة]", "BeneficiaryT", "[card]=[رقم الهوية]")
X = DLookup("[رقم الهوية]", "BeneficiaryT", "[card]=[رقم الهوية]")
If Not IsNull(X) = True Then
MsgBox "رقم الهوية" & " ( " & [card] & " ) " & " تم تسجيله مسبقاُ" & "بأسم" & " " & i, vbCritical, "  تنبيه"
Undo
DoCmd.FindRecord X
Else: Exit Sub: End If
DoCmd.RefreshRecord

 

تم تعديل يناير 25, 2022 بواسطه Ahmed_J

[Eng.Qassim]

اعتقد اني عملتها لك في المشاركة السابقة ..بس انت مارضيت

على كل..شوف المرفق

عملت لك نموذج للبحث منفصل

 

systemJJ.accdb

تم تعديل يناير 25, 2022 بواسطه Eng.Qassim

[jjafferr]

اخي فلسطين 🙂

 

رجاء عدم توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف من المنتدى هو التفاعل من الجميع ،

وهذا السؤال يعتبر تكرار ، فاذا اردت مساعدة اضافية ، ضع استفسارك في الموضع الآخر

 

جعفر