Yes No

لا توجد بيانات في التقرير

10 ردود في هذا الموضوع

السلام عليكم..

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

MsgBox ("لا تــوجــد بيانــات"), vbDefaultButton1, "***تنبيـــــه***"

وعند الضغط على كلمة Ok يظهر التقرير مع ذلك مع وجود علامات الخطأ error

والمطلوب هو عند عدم وجود بيانات ان تظهر رسالة ثم يغلق التقرير لوحده والذهاب الى النموذج السابق..

وشكراً

:cool:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

______________

MsgBox "عفواً.. لا توجد بيانات", _

vbCritical + vbOKOnly, _

"تنبيه"

DoCmd.CancelEvent

_______________

وتـقبل تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم...

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

نفعت ولكن ظهرت رسالة اخرى مزعجة اكثر من الاولى

وهي

The OpenReport action was canceled

وبعدين يفتح لي نافذة البرنامج (الجداول والاستعلامت ...)

انا اريد ان ارجع الى النموذج الذي طلبت منه التقرير؟؟

اعتقد لازم نستخدم قاعدة if

مثلا اذا لم يوجد بيانات الغي العملية والذهاب رجوعا الى النموذج

واذا كانت هناك بيانات اكمل العملية؟؟

والله اعلم؟؟

انا بانتظار ردك السريع اذا امكن

وشكراً

:mad:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

قبل الكود ضع

DoCmd.SetWarnings False

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم..

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

نفس المشكلة ظهرت الرسالة

ارجو ملاحظة انه في التقرير وضعت الكود ادناه وذلك لان يظهر التقرير ويختفي النموذج وعند اغلاق التقرير يظهر النموذج :-

Private Sub Report_Activate()

Forms![MENUE-REPORTS].Visible = False

End Sub

Private Sub Report_Deactivate()

Forms![MENUE-REPORTS].Visible = True

End Sub

اريد انا اذا كان لا يوجد بيانات ان تظهر رسالة ويغلق التقرير والرجوع الى النموذج فوضعت هذا الكود

Private Sub Report_NoData(Cancel As Integer)

MsgBox "عفواً.. لا توجد بيانات", vbCritical + vbOKOnly, "تنبيه"

DOCMD.CancelEvent

DOCMD.SetWarnings False

End Sub

فارجو منكم المساعدة واين اجد الحل

انا بانتظاركم

وشكراً

:confused: :mad:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

عزيزي : Yes No

تفضل هذه الطريقة

أولاً في حدث عند النقر للزر الذي على النموذج والذي يقوم بفتح التقرير

تضع هذا الكود

____________

Private Sub أمر0_Click()

On Error Resume Next

DoCmd.OpenReport "saudi1", acPreview

End Sub

______________

على افتراض ان اسم التقرير لديك هو ( saudi1 )

===========

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

Private Sub Report_NoData(Cancel As Integer)

MsgBox "عفواً.. لا توجد بيانات", vbCritical + vbOKOnly, "تنبيه"

DOCMD.CancelEvent

End Sub

______________________

إنسخ وألصق وغير مسمى التقرير فقط

وأنا في انتظار أن تخبرني بأنك قد نجحت في هذه الطريقة

وتقبل تحياتي

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم..

جزاك الله خير يا اخ سعودي

الكود تمام بس اضفت عليه فتح النموذج السابق

الصراحة

فنان ... فنان ... انت فنان

في سؤال قادم لكن انا احب احاول الحل واذا ما قدرت وضعت سؤالي في هذا المنتدى الرائع يلي فيه وجدت فنان اكسس مثلك؟؟!

شكرً

(gift) (f)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

لا شكر على واجب

يا أخي أنا دائماً في الخدمة بقدر ما استطيع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم..

اخ سعودي صار شي غريب معاي وهو انه عند زر امر طلب الطباعة وضعت هذا الكود

If Me![TODATE] < Me![FROMDATE] Then

MsgBox ("ما عليك أمــر عفـــواًلايمكــن طباعــة التقريـــر؟! ...تاريـــخ البدايـــة اكبـــر مــن تاريـــخ النهايـــة؟‍"), vbCritical + vbDefaultButton1, "***خطــــأ***"

Exit Sub

End If

On Error Resume Next

DOCMD.OpenReport "03-DAILY", acPreview

لكي يعطي تحذير انه زر بداية التاريخ اكبر من نهاية التاريخ

ما يحدث هو انه فقط عندما تضغط على زر امر الطباعة مرة واحدة فقط يشتغل امر if مرة واحدة فقط وعندما تغير مثلا التاريخ وتصححه تظهر الرسالة سواء كان شرط if صحيح او لا ... لازم تطلع من النظام كامل علشان تطبع تقرير ثاني؟؟؟ بتاريخ اخر سواء خطا او لا

اتمنى ان تكون فهمتني

انا بانتظارك بسرعةةةةةةةةةةةةةةةةةةةةةةةةةةةةةة

لو سمحت

وشكراً :mad: :'(

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

معليش لم أفهم الموضوع

ولكن من النظرة الأولى للكود لو تشيل Exit Sub

قد يعمل الكود معك

إذا لم يعمل أرجو أن توضح أكثر ... أو ترفق القاعدة حتى أتمكن أنا أو غيري من مساعدتك

تحياتي لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .