اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

_____________.rar

قام بنشر

اخوي

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

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

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

كود
MsgBox "Error#: " & DataErr  
Response = acDataErrDisplay

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

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

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

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

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

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

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

قام بنشر

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

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

قام بنشر

اخوي

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

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

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

 

قام بنشر

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

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

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

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

قام بنشر

اخوي

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

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

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

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

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

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

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

post-19026-1228547968.jpg

قام بنشر

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

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

قام بنشر

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

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

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

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

قام بنشر

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

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

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

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

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

رقم الخطأ 2950

رعاكم الله

قام بنشر

اخوي

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

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

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

  • 5 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information