مساعدة لتغيير نص رسالة في access 2007

[mohamed5260]

بسم الله الرحمن الرحيم

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

اخواني خبراء البرمج ب ACCESS 2007 لي طلب ارجو المساعدة فيه 

لقد قمت ببناء جدول اسميته dalil به الحقول التالية:

n:     NuméroAuto

nom:     text

telephone:    text

 adresse:   text

حيث جعل حقل telephone قيمة مفرد بحيث لا يقبل التكرار عند ادخال قيمة مدخلة من قبل تظهر الرسالة التالية:

 

سؤالي هو: كيف يمكنني ان اغير نص الرسالة مع الشرح بحث يظهر النص التالي مثلا 'هذا الرقم مسجل ' 

[Shivan Rekany]

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

dim x as integer
x = nz(dcount("[telephone]" , "dalil")
if x > 1 then
if msgbox"هذا الرقم موجود مسبقا"
me.telephone = ""
endif

مع تقدير

شفان ريكاني

[mohamed5260]

بارك الله فيك اخي لقد ارفقت الملف لتوضيح اكثر

BD1.rar