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

في حدث عند الخطأ للنموذج ضع الكود التالي :

If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox "البيانات مكررة ."
End If

غير الرسالة بما تحب .

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

ولك تحياتي

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

عندي سؤال بسيط

لدي 5 حقول

4 حقول تتعلق بالتاريخ

وحقل يكتب فيه رقم معين يتعلق بزمن مثلا 7 يعني 7 أيام

فيقسم هذا الرقم سواء كان 7 او 5 او 10 ألى آخره على حقل تاريخ وليكن هذا التاريخ هو الحقل الأول فيقسم الرقم السابق على بتاريخ الأول على 3 حقول التاريخ وتكتب أتوماتك مع مراعاة الخميس والجمعة

قد يكون نموذج إدخال البيانات يحتوى على حقول كثيرة وبالتالي لا تظهر رسالة أكسيس الإفتراضية إلى بعد إدخال بيانات أخر حقل أي عند الحفظ وفي هذه الحالة يكون المستخدم قد اهدر وقتاً في تعبئة جميع الحقول فالأفضل من وجهة نظري ولا يؤخذ بها أن تظهر الرسالة بعد إدخال البيانات في حقل الرقم مباشرة ويتم ذلك بالتالي:

من خصائص الحقل حدث بعد التحديث يكتب الشفرة التالية

 If DCount("*", "customer", "customer_ID=" & Screen.ActiveForm.r1) Then
MsgBox " ألرقم مكرر", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading," تنبيه"
End If

الأخ WMKN1

انظر هذا الرابط :

http://www.arabteam2000.com/vb/showthread....p?threadid=5827

ب فقرة 7

الأخ 5060

وجهة نظر جيدة وصحيحة .

ولك تحياتي