اكتشاف تطابق ارقام تلقائيا بحفظ مسبق

[محمد عبد الله ٢]

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

تحياتي لكم جميعا ارجو المساعدة في إنشاء تنبيه في حال تشابه البيانات المدرجة في نموذج معين و انا قد كنت ادرجت في جدول آخر مثال نظام المخالفات في المرور عند المخالفة ياخذ الرقم و يتم إيداعه في قسم المرور و صولا إلى المعاينه السنوية و عند قيام تلك السياره المخالفه بالمعاينه تظهر لدى موظف المعاينة رسالة تنبيه بان هذا الرقم مخالف ارجو المساعدة و لكم جزيل الشكر والتقدير 

[ابوخليل]

dim i as intger
i= DCount("Number1","table1","Number1=" & textNumber)
if i > 0 then
msgbox"يوجد مخالفة على هذا الرقم"
end if

 

[محمد عبد الله ٢]

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

البيان.accdb

[ابوخليل]

القاعدة المدرجة تالفة 

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

ويمكنك وضعه في حدث زر

مع مراعاة التسميات للحقل وسم الجدول

اذا لم تتمكن يمكنك ادراج قاعدة سليمة

[محمد عبد الله ٢]

اعجز عن شكرك اخي و استاذي الفاضل ابو خليل تفضل هذه القاعدة ..

للعلم فقط اسم النموذج المقصود المكتب التجاري

 

بيان الخروج.accdb

تم تعديل أغسطس 2, 2015 بواسطه mohamad dahleek
لشرح المطلوب تعديله

[ابوخليل]

تفضل

New Microsoft Access Database.rar

[محمد عبد الله ٢]

جزاك الله خيرآ استاذي الكريم و اكثر الله من امثالك