سؤال في عملية عدم تكرار الرقم

الاخ حاكم المحترم

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

في النموذج الذي تعمل به اذا افترضنا ان الحقل الذي لاتريد تكراره هو حقل رقم الموظف او (emp_id) قم بانشاء مربع نص وسميه مثلا (empid) واجعل الحقل (emp_id) غير مرئي ثم انشئ تقرير يستمد بياناته من الجدول الذي يحتوي هذا الحقل ويحتوي على البيانات التي تريد اظهارها ثم قم بعمل الاجراءات التالية :

1- في الحدث بعد التحديث لمربع النص (empid) اعمل اجراء يقوم بفتح التقرير المذكور اعلاه بحيث يكون الحقل (emp_id) في التقرير مساوية للرقم الذي كتبته في عنصر التحكم (empid).

2-في الحدث عند التنشيط للتقرير قم بعمل اجراء يقوم باظهار مربع حوار ينص على ان هذا الرقم سبق منحه سابقا لشخص اخر .

3-في الحدث عند عدم وجود بيانات في التقرير قم بعمل اجراء يقوم بالغاء اجراء الفتح والعودة الى النموذج وجعل قيمة الحقل (emp_id)في النموذج = قيمة مربع النص (empid) ونقل المؤشر الى الحقل الذي يليه وليكن اسم الموظف مثلا.

ارجو ان تكون قد استوعبت كلامي كما ارجو ان اكون قد افدتك ... وتقبل تحياتي,,,

شكراً لك أخي منتصر وتكفيني محاولتك في مساعدتي بما تعلم فما تراه قليل بالنسبة لك ثق تماماً بأنه يعني لي الكثير

عزيزي ما ذكرته أنت كلام جميل جداً ومن تصوري له أنه سيفي بالغرض الذي أريده ولكن هل لي أن آخذ من وقتك وأن أطلب شرح الذي ذكرته وما هي الأكواد التي يجب أن أضعها وصيغتها بالتحديد

السلام عليكم

هناك حل ابسط عن طريق دالة DLookUp

اعمل نسخه من الفورم الذي تدخل فيه الرقم وسمه باي اسم تريد

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

وبكذا راح يطلع لك النموذج الثاني مع رساله اذا كان الرقم مكرر

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

If (Eval("DLookUp(""[حقل الرقم]"",""[اسم الجدول]"",""[حقل الرقم] =form![حقل الرقم]"") Is Not Null")) Then
Beep
    MsgBox "هذا الرقم مكرر لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الرقم المكرر بكامل بياناته"
DoCmd.CancelEvent

    stDocName = "اسم النموذج الاخر تريد ظهوره"
    stLinkCriteria = "[حقل الرقم]=" & "'" & Me![حقل الرقم] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms![اسم النموذج الرئيسي]![حقل الرقم] = Null


End If
SendKeys "{f2}", False

وهذا مثال على ذلك حمله من هذا الرابط

http://www30.brinkster.com/alhajri/DLookUp.rar

ان شاء الله يكون المطلوب

شكراً لك أستاذي الهاجري والشكر موصول لأستاذي منتصر

على الحرب والسعه دائما اخي حاكم

ومن جهتي اشكر الاخ الهاجري مع العلم باني كنت اعلم انه يمكن استخدام دالة Dlookup الا اني لم اكن استطيع التعامل معها وقد وضحتها لي فشكرا والشكر كذلك للاخ حاكم على كلامه ... وتقبلوا تحياتي,,,

عفوا على هذا الخطأ

اريد ان اقول على الرحب فقلت على الحرب ؟؟؟

والشكر لله سبحانه يا اخ منتصر

اخي الهاجري طبقت كلامك بالضبط

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

DoCmd.OpenForm stDocName, , , stLinkCriteria

علمنا مما علمك الله

ربما لم تقم بنسخ الكود كاملا وتاكد من تغير اسماء الحقول فيه

وهو يعمل بشكل جيد حمل المثال حتى ترى اين الخطأ

الله يجزاك خير يا سحاب ولا فيه شرح ابسط من الشرح السابق

شكراً لك أستاذي الهاجري جربت المثال وعال العال الله يجزاك كل خير والله يكفينا شر الحرب ;)