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

مشكلة في تقريري!

مغلق
بدأه anas3001 في 8 أكتوبر 2005 · 13 رد · 750 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هنالك مشكلة الآن ألا وهي:

بعدما أقوم بطباعة التقرير أعود لأختيار بيانات أخرى لأطبعها تظهر لي فورم طباعة التقرير بالمعلومات السابقة :angry:

ولا أستطيع طباعتها إلا بالخروج من البرنامج ثم الطباعة من جديد :blink: (و طبعاً يعلق أول بيانات أطبعها في التقرير وكل طباعة أضطر إلى الخروج من البرنامج وتشغيله مرة أخرى) :s

أرجو أن ألا أكون أطلت عليكم وشكرا لوقتكم المبذول :rolleyes:

#2

اخى الفاضل من قائمة ملف ستجد Save Data With Report وستجد امامها علامة صح قم برفع العلامة فقط وستحل مشكلتك باذن الله

الايمان +الحلم +العلم +العمل = النجاح

ما اسهل ان تنجح ... وما اصعب ان تحافظ على نجاحك

#3

عفواً

لكنيي فعلاً بحثت عن قائمة ملف التي تحوي على Save Data With Report ولم أجدها؟؟؟

#4

ضع المثال هنا حتى يتم تعديله

460.gif

#5

لقد لاحظت كريستال ريبورت

يا ترى هل هي غير Data report :wacko: (التي يتم اضافتها من Project --> Add Data Report) ؟؟؟

وإذا كانت غير كيف يمكنني الحصول عليها

لأنه وكما ترى الخيار option غير موجود في القائمة المنسدلة File

post-59519-1128952653_thumb.jpg

#6

الاوبشن المذكورة هي في الكريستال وليس الداتا ريبورت

اكرر مرة اخرى ضع مثال حتى يتم تعديله :)

460.gif

#7

من الواضح انك تستعمل الداتا ريبورت و تربط قاعدة البيانات بواسطة ال Dataenvironment ,

ولحل هذه المشكلة أقول لك أنه يجب عليك اعادة تحميل ال recordset بواسطه الكود و قبل امر فتح التقرير مباشرة وذلك كالتالى/:-

أولا يجب عليك اغلاق ال recordset الذى تستخدمه لعرض بياناتك على التقرير نفترض انط تعطيه اسم : report هذا الاسم يتم تحديدة داخل شاشة ال dataenvironment

عليك استخدام الأمر التالى :

if dataemvironment1.RSreport.state <> 0 then dataemvironment1.RSreport.close

بعد ذلك قم باستدعاء التقرير بطريقتك المعتادة و التى من المفترض فيها أن تقوم بتحميل الrecordset من تلقاء نفسها

#8

عفواً لا أريد أن ينتشر البرنامجقبل أن أنتهي منه

إذا أمكن من بعد اذنك كيف يمكنني الحصول عليها وشكراً لوقتك

#9

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

#10

سأحاول وشكراً

#11

شكراً جزيلا جدا جدا يا شباب

لقد كنت مخطئاً في كتابتها!! شكراً جداً جداً

If DataEnvironment1.Commands.State <> 1 Then DataEnvironment1.rsCommand1.Close

#12

سؤال آخر إن أمكن

بماذا تفرق في قاعدة البيانات

.findfirst

.findnext

.findlast

.....

????

#13

السلام عليكم

findfirst = احضار السجل الاول

findnext = احضار السجل التالي

findlast= احضار السجل الاخير

460.gif

#14

أقصد لقد جربت

Data1.Recordset.FindFirst "رقم_الوظيفة='" + Text1.Text + "'"

و

Data1.Recordset.FindNext "رقم_الوظيفة='" + Text1.Text + "'"

ولم أجد فرقاً!!

هذا الموضوع مغلق.

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

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

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

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

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