كيفية عدم قبول الرقم إذا كان مسجلا من قبل

ألاخ ابو عبد الله

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

http://arabteam.nicmatic.com/vb/showthread...27645#post27645

ربما تجد مطلوبك

إذا لم يفي بالغرض الذي تريد اخبرنا

إخواني جربت الطريقة اللي قلتو ا عليها ولم تنفعالطريقة

والكود الذي أعطي لي يطلع أخطاء

ولكم فائق التحية

من عنده كود أو طريقة أكون شاكرا له يضعها ثم يبين أين توضع

وشكرا

الأخ ابو عبد الله

وهذاه طريقة أخرى

On Error go to Y
Dim R as Integer
R=Dlookup("[اسم الحقل الذي يحتوى على الرقم في الجدول]","اسم الجدول" , "[سم الحقل الذي يحتوى على الرقم في الجدول]=[forms]![ اسم النموذج]![ اسم مربع النص الذي تكتب فيه الرقم على النموذج]
If Not IsNull ® then
msgBox" أكتب الرسالة التي تريد أن تظهر للمستخدم عند وجود الرقم "
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70  هذا السطر للتراجع عن أضافة سجل عند تكرار الرقم   
Else
Msgbox" أكتب الرسالة التي تخبر المستخدم بأن الرقم لم يسجل من قبل "
End If
Y:

ويمكنك الأستغناء عن الرسالة التي تظهر إذا لم يسبق وأن سجل الرقم في الجدول من قبل

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

الكود االموجود على الرابط يعمل بطريقة صحيحة وأعتقد أن الخطأ الذي يحدث بسبب أنك لم تستبدل اسم الجدول والحقل ومربع النص الموجودين في الكود ولذلك لابد من استبدال :

customer باسم الجدول لديك

customer_ID بحقل الرقم أي المفتاح الأساسي

r1 باسم مربع النص الذي تكتب فيه الرقم على النموذج

أخبرنا بما تتوصل إليه حتى إذا لم تتمكن من الإستفادة نوضح لك أكثر فالهدف أن نصل سوياً إلى ما تريد

لك تحياتي

أخي 5060 : دوختنا معاك شوية يمين وشوية يسار .

ولكن بارك الله فيك .

ومثال للأخ أبو عبد الله على هذا الرابط

http://www.libya.ly/user/ashrafk/db1.zip

أشرف خليل

أخي اشرف

سلامتك من الدوخات وهذا مثال على الكودين الذين ذكرتهما

http://mypage.ayna.com/mrsalnet/Data1.zip

حتى يسلم لنا دماغك من الدوخات نحن في حاجة الصفاء ذهنك0

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

اذا اجعل للجدول الثاني مفتاح اساسي جديد غير

وشكرا

الأخ/سالم-1111

كلام سليم ولكن لا تظهر رسالة المفتاح الأساسي إلا بعد الخروج من أخر حقل وتخيل لو عندك نموذج فيه لا يقل عن 20 مربع نص وقمت بتعبئة تلك الحقول وعند الإنتها ظهرة لك تلك الرسالة فقس الوقت والتعب الذي أستغرقته دون مقابل عكس لو كانت الرسالة تظهر بعد إدخال البيانان في أول حقل 0

عموماً لكل شخص طريقته ورؤيته الخاصة