كيف أعدل في كود الاستعلام

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

 On Error Resume Next
If DataErr Then
MsgBox " أكتب هنا الرستلة التي تريد ظهورها في حالة الخطأ"
End If

عزيزي biskra

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

قمت بتنفيذ ما طلبت

نسخت المثال أعلاه وألصقته في حدث : عند حدوث خطأ للنموذج .

تم التنفيذ بحيث أدخلت تاريخ غير موجود مثل 31/2/2005 تظهر الرسالة التالية ( لقد قمت بإلغاء العملية السابقة)

ما الحل بارك الله بك

جرب الكود التالي في نفس المكان

If DataErr = 2113 Then
Response = acDataErrContinue
MsgBox "التاريخ الذي تم اٍدخاله خاطىء", vbOKOnly
Me.Undo
End If

حياك الله أخي biskra

وجزاك الله كل خير

بالنسبة للمثال الأخير

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

النتيجة تظهر نفس رسالة الخطأ وهي :

( لقد قمت بإلغاء العملية السابقة)

وتسلم يالغالي

ضع نسخة مصغرة من ملفك لحل المشكلة.

هذا مثال على الكود

db1.rar

biskra

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

وآسف جدا جدا على التأخير

لا لشيء سوى أنني نسيت هذه المشاركة ( والعتب على خاصية الاشتراك بهذا الموضوع ) :)

عزيزي biskra ..

لقد جربت المثال المرفق بارك الله بك

ولكن الذي أريده هو ادخال الكود الذي ذكرته ضمن الاستعلام فقط

بحيث عندما انفذ الاستعلام ( وفي حال وجود خطأ مثل 31/ فبراير ) يجب أن يعمل هذا الكود للتنبيه بذلك.

مثالك يصلح لمربع النص في النموذج أما الاستعلام فكيف يتم ذلك يالغالي :)

وسلامتك