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

مشكلة في إظهار التقرير مرة أخرى

بدأه eng.bassel في 15 سبتمبر 2013 · 2 رد · 890 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

أخواني الأعزاء انا جديد في المنتدى أرجو منكم مساعدتي في هذا الكود البسيط...

If Option1.Value = True Then

DataEnvironment1.Connection1.ConnectionString = App.Path + "\db1.mdb"
DataEnvironment1.rsCommand1.Open "select in_pay,in_pay_date,typein,std_nm from inmoney order by typein"
DataReport1.Show
End If

هذا الكود يقوم بطباعة البيانات الظاهرة في MSFlexgrid المربوطة بقاعدة بيانات Access  عن طريق DATA1 

وتظهر البيانات في التقرير بشكل سليم و لكن المشكلة هي:

عند اغلاق التقرير و الضغط مرة أخرى على زر إظهار التقرير يظهر الخطأ التالي:

RunTime Error 3705: This operation is not allowed when the object is open

ولا يستجيب مرة أخرى إلا عند إغلاق التطبيق و إعادة تشغيله

رغم أني جربت العديد من الأكواد التي تقوم بعملية Close للـ:

DataEnvironment

RecordSet

DataReport

Connection

 

أرجو منكم المساعدة و لكم جزيل الشكر...

#2

شباب ياريت حدا يساعدني هي المشروع بالمرفقات

بعد تشغيل المشروع و الضغط على زر طباعة.... ثم اغلاق  التقرير....ثم الضغط على زر طباعة مرة اخرى.......هنا تظهر المشكلة!!!!!!

vb.rar

#3

السلام عليكم 

تفضل اخى 

Private Sub Command1_Click()
If DataEnvironment1.Connection1.State = 0 Then
DataEnvironment1.Connection1.ConnectionString = App.Path + "\db1.mdb"
End If
If DataEnvironment1.rsCommand1.State = 1 Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Open "select * from emp where salary>" & Text1.Text & ""


DataReport1.Show
End Sub

بالتوفيق ان شاء الله

00
 

فاضى 

 

00

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