الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في عرض تقرير كرسيتال ريبورت8

بدأه maajed555 في 11 فبراير 2009 · 3 رد · 514 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

وبعد الحفظ في قاعدة البيانات

أقوم بمحاولة عرض ما حفظته في تقرير كريستال ريبورت8

ولكن للاسف

لا تظهر النتائج بشكل صحيح

بل تظهر صفحة بيضاء فارغة

ما هي المشكلة؟؟ وما الحل؟؟

:S

Proj.rar

#2

للتذكير ربما اجد عند احد الاخوة ما يفيد ...

#3

إستبدل الكود في الحدث Click للـ Command2 بالكود أدناه



CR1.ReportFileName = App.Path & "\Report1.rpt"
If Len(Trim(Label3)) <> 0 Then
CR1.SelectionFormula = "{tbl1.nam}='" & Label3 & "'"
Else
CR1.SelectionFormula = ""
End If
CR1.Action = 1
	CR1.DataFiles(0) = App.Path & "\db1.mdb"

ومتنساش تفضي الـ Label3 وقت الدخول في الـ Form_Load أو بحذف قيمة خاصية الـ Caption من شاشة الخصائص

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

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#4

اخي الكريم mrx_ta7ady حفظك الله

شكرا لك على المعلومة الجميلة التي قدمتها ، وقد بحثتُ عن المشكلة ووجدت لها حلا آخر .... والحل هو في خطوتين ليقوم التقرير بتحديث نفسه آليا .... وإليك الخطوتين اللتين توصلت لهما :-

1- في صفحة التقرير تذهب إلى قائمة file ثم تتأكد من إزالة علامة الصح من أمام الخيار : save data with report

2- تذهب إلى File ثم إلى Options ثم تختار علامة التبويب Reporting ثم تزيل علامة الصح التنشيطية من أمام save data with report

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

ولنسبة الفضل إلى أهله أقول : هذه الطريقة وجدتها في دروس الأخ جونيور (أظن اسمه كذا) رحمه الله تعالى وأسكنه فسيح جناته ، في دورته التي كتبها حول كريستال ريبورت10 ، أسأل الله له المغفرة والرضوان .

شكرا لك أخي الكريم ، وأسأل الله أن يوفقك في الدنيا والآخرة ، وتقبل تحياتي

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…