وش حل Run-time Error '2137'

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

أخي الكريم انا لم أطلع على مثالك لكي أحدد

اين المشكلة بالضبط .. وعموما أن كانت المشكلة

لاتتعلق بمكون جوهري في برنامجك فكود قتل الاخطاء هو

On Error Resume Next

يوضع في أول الاجراء .. مهمته تجاهل الخطاء ونفذ التالي

ان شاء الله يحل لك الاشكال

الله يجزاك خير ياغالي ..

انا جربت هالكود و يمشي حالة لكنه يعطل عمل الكود الموجود اللي هو :

Private Sub PNOtext_BeforeUpdate(Cancel As Integer)
On Error Resume Next
PNOIDfield = Me.PNOtext
Dim A11
A11 = DLookup("[PNOID]", "MAIN", "[PNOID]='" & Me.PNOtext & "'")
If Not (IsNull(A11)) Then
MsgBox "áÞÏ ÃÏÎáÊ ÑÞã åæíÉ ãßÑÑ", vbCritical, "ÈÑÇãÌ ÃÈæ ÍÓÇã"
Cancel = True
Me.Undo
DoCmd.FindRecord PNOIDfield
End If
End Sub

مهمة إن كان هالرقم مكرر تعطي المستخدم رسالة و تنقله للرقم المسجل .. وانا اخذته من برنامج للأخ/ ابو حسام ..

وإذا حطيته الكود اللي انت تقول عليه ما ينفع كود ابو حسام ... لانه في حال تكرر الرقم راح يعطيني " نموذج فارغ "

المشكلة أني لما ادخل رقم جديد و أعيد اكرره مره ثانيه يمشي الحال ما فيه مشكلة ..

بس لما اقفل الاكسس و ارجع افتحه واكتب نفس الرقم يعطيني الخطأ ..

يفضل لو ترفق مثالا حتى تكون عملية التعامل مع هذه المعضلة البسيطة أسهل بالنسبة لنا.

الله يعطيكم العافيه ..

البرنامج مرفق ..

وراح اشرح لك المشكلة ..

الأن افتح النموذج ADD

اكتب اسم المريض ، اكتب الرقم الطبي

أحفظ ..

بعد ذلك ....

اكتب أسم مريض جديد ثم أكتب نفس الرقم الطبي للمريض السابق ..

راح يعطيك رسالة أن الرقم مكرر ثم ينقلك للسجل السابق ..

كذا ماشي تمام التمام ..

اغلق النموذج ثم افتحه مره ثانيه ..

اضف اسم جديد واكتب نفس الرقم السابق ...... راح يعطيك الخطأ

Reborts.rar

لا زلت انتظركم يا أخوتي الكرام

يا اخي الخطا ان الخاصيه Data Entry بتاعت الفورم yes اعملها no

الله يعطيك العافيه ..

صادق هذا هو الخطأ ..

وتم حله يا حبيب قلبي وشكراً لك وجزاك الله الجنه ..