اذهب الي المحتوي
أوفيسنا

أريد رسالة بوجود تكرار في الرقم المدني ؟


ykeen2010

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

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

أخواني الأعزاء:

أريد كود أضعه في أول حقل عندي وهوحقل مفهرس(بدون تكرار)بحيث بمجرد ماأدخل الرقم وكان موجود مسبقاً يخبرني أن بيانات هذا الرقم أدخلت مسبقاً.

لأن المشكله عندي عندما أدخل جميع بيانات الحقول وهو مايقارب عشرين حقل يظهر عندي أن الرقم موجود مسبقاً

وهذا يضيع علي الكثير من الوقت

أرجو المساعده ياأخوان

ملاحظه : الحقل هو ( رقم السجل المني ) لكل مريض على سبيل المثال

وجزاكم الله خير

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

السلام عليكم

اخي ykeen2010 :fff: ،

ابتداءً ، تحياتي لأخي فتى الوادي وكل عام وأنت بخير.

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

إذن يجب أن نضع كود معين في حدت بعد التحديث لحقل الرقم المدني ولنفترض أن اسمه no وموجود في الجدول t1 وبهذا يكون الكود الذي يعطينا رسالة تنبهنا مباشرة بعد تحديث الرقم المدني فيما إذا كان مكررا كما يلي :

Private Sub no_AfterUpdate()
x = Nz(DCount("[no]", "t1", "str([no])= '" & Str(Me.no) & "'"), 0)
If x <> 0 Then MsgBox "هذا الرقم موجود مسبقا يرجى تغييره أو إلغاء عملية الإضافة"
End Sub

مع الاحترام والتقدير

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

السلام عليكم

الأخ العزيز القدير المشرف :خضر الرجبي

نعم هذا المطلوب وهذا الذي (كنت أبحث عنه)

أشكرك جزيل الشكر على تجاوبك معي وردك السريع

وجعل الله هذا العمل في ميزان أعمالك

ولك خالص الأمتنان والتقدير

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

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