[ تمت الاجابة ] منع التكرار

[abdunra]

[

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

اساتذتي الكرام

هل لي بمساعدة في هذه القاعدة

size="6"]كيف اصمم هذا البرنامج (المكتبة )واليكم المرفق مع فائق احترامي للأساتذه المبدعين

library.rar

[أبو آدم]

1 المطلوب اظهار رسالة في حقل (nob a) و ( nob b) و ( nob c ) تنبيه بان الرقم مكرر عند الأنتقال الى السجل التالي

الطلب غير واضح هل التكرار في كل حقل على حدى غير مسموح ؟؟

ام ان اقتران الحقول الثلاثة تكرارها غير مسموح ؟؟

الطلب الثاني

الطلب الثالث

NA_library.rar

[abdunra]

الطلب غير واضح هل التكرار في كل حقل على حدى غير مسموح ؟؟

ام ان اقتران الحقول الثلاثة تكرارها غير مسموح ؟؟

شكرا جزيلا سيدي الفاضل على مرورك الكريم

نعم في كل حقل على حدى غبر مسموح التكرار ( اي في حقلnob a )لايتكرر الرقم وفي حال اذا كان مكررا تخرج الرسالة التنبيهية تخبر بتكرار الرقم و يجب التصحيح قبل تجاوز الحقل

وهكذا للحقلين الباقيين

مع فائق شكري واحترامي سيدي الفاضل وجزاك ووفقك لمرضاته

9

[أبو آدم]

أخي العزيز

في حدث بعد التحديث للحقل المعني أضف الكود التالي

Private Sub nob_d_AfterUpdate()

Dim rst As Recordset

Set rst = Me.RecordsetClone


rst.MoveFirst

Do Until rst.EOF

If rst![nob d] = Me![nob d] Then


MsgBox " السجل مكرر ، رقم المصنف مسجل سابقا  ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"


Me.Undo

DoCmd.CancelEvent

Exit Do

End If

rst.MoveNext

Loop

rst.Close

End Sub

والله الموفق ... وهو المستعان

[abdunra]

السلام عليكم

الف شكر لك سيدي الكريم هذا ما كنت ابغي

وفقك الله وزادك بسطة في العلم

[أبا عمر]

يُنقل 


...........