خطأ في كود البحث بين تاريخين

[gelani]

كل عام وأنتم بخير .

التصميم المرفق يحتوي على تقرير برقم سري وعند الرغبة في البحث عن تاريخ التعيين لمجموعة بين تاريخين مثلا من 1-1 الى 1-4 وأخطأت في كتابة التاريخ بطريقة صحيحة مثلاً كتبت 1 فقط بدلا من 1-1 تظهر رسالة غريبة .

فهل من تعديل على الكود المرفق تحت الأمر 12 في النموذج .

مع شكري وتقديري للجميع سلفاً .

_____________.rar

[Bluemind]

اخوي

لا يوجد مرفقات!!!

[gelani]

شكرا على الرد وقد ارفقت الملف ولم يظهر لخطأ ما ???. وهذه محاولة أخرى أرجو أن تنجح رعاكم الله .

اجمل تحية

_____________.rar

[Bluemind]

اخوي

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

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

اولا في حدث on error لو عند الخطا في التقرير الذي لديك اكتب الكود التالي

كود

MsgBox "Error#: " & DataErr  
Response = acDataErrDisplay

ثم احفظ ثم جرب تشغيل التقرير و ادخل بيانات خاطئه كما في السابق

بعد ذالك سوف يظهر لك رساله فيها رقم

قم بتسجيل هذا الرقم

بعد ذلك قم بستبدال الكود الي فوق بالكود التالي مع تعديل الرساله بالرساله الي تبغاها

طبعا استبدل XXXXX برقم الخطا الي ظهرلك اول

كود

If DataErr = XXXX Then
    Response = acDataErrContinue
    MsgBox "الرجاء كتابه تاريخ وليس رقم."
Else
    MsgBox "Error#: " & DataErr
    Response = acDataErrDisplay
End If

انتظر اجابتك
اريد رقم الخطا

[gelani]

أشكركم علي سرعة الرد ولم استطع التعامل مع الكود حيث تظهر رسالة Error وبالنسبة لرقم الخطأ هو 3071

رعاكم الله وزادكم علماً

[Bluemind]

اخوي

هل استبدلت رقم الخطا الظاهر اعلاه "3071" بXXXXX

حيث يصبح الكود كاتالي

كود

If DataErr = 3071 Then
    Response = acDataErrContinue
    MsgBox "الرجاء كتابه تاريخ وليس رقم."
Else
    MsgBox "Error#: " & DataErr
    Response = acDataErrDisplay
End If

 

[gelani]

جزاك الله خيرا على متابعة موضوعي .

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

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

كل عام وأنتم وجميع أعضاء المنتدى الرائع والذي اعتبره مدرستي الأولى وجميع المسلمين بخير وأمن وأمان إن شاء الله .

[Bluemind]

اخوي

للاسف لم استطع التعديل على المرفق لوجود مشكله فيه

الخطوات بسيطه
قم بوضع الكود السابق في حدث عند الخطا او on error للتقرير كما في الصوره

كود

If DataErr = 3071 Then
    Response = acDataErrContinue
    MsgBox "الرجاء كتابه تاريخ وليس رقم."
Else
    MsgBox "Error#: " & DataErr
    Response = acDataErrDisplay
End If

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

بعد ذلك سوف تظهر لك رساله تطلب التاريخ من الى

ادخل الرقم واحد لكلا الرسالتين

وسوف تظهر لك الرساله

[gelani]

( كل عام وأنتم ومن تحبون والمسلمين بخير إن شاء اللة )

العملية تمت على الوجه المطلوب حسب التجربة الأولى ولا أملك إلا أن أدعو الله لكم بالبركة في العلم والمال والأولاد وكل عام وأنتم بخير وجميع أعضاء هذا المنتدى الرائع .

[gelani]

عزيزي biumind حفظكم الله

عند الرغبة في عمل نموذج ووضع زر لإستدعاء التقرير وبعد ظهور الرسالة الخاصة بالخطأ في كتابة التاريخ تظهر رسالة خطاء برقم 2950 ويطلب تعطيل الماكرو .

كيف استطيع عمل زر استدعاء التقرير حيث انني عجزت عن ذلك .

تحياتي وتقديري

[Bluemind]

اخوي

ماهو نص الرساله لهذا الخطأ!!!

[gelani]

عزيزي - تأتي رساله عنوانها فشل الإجراء

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

ثم عبارة الشرط صواب.

ثم اسم الإجراء openreport

الوسطيات عادي ; ; ; اسم التقرير

رقم الخطأ 2950

رعاكم الله

[Bluemind]

اخوي

هل وضعت ماكرو لفتح تقرير معين!!؟؟

تاكد من وجود هذا التقرير وكذالك تاكد من اسمه

او ارفق قاعده البيانات لاتاكد من الماكرو

[أبا عمر]

ينقل 


........