السلام عليكم
ارجو مساعدتي في هذه المشكلة
لدي تطبيق متصل بقاعدة بيانات اكسس عن طريق Data
وصممت تقرير Data Report عن طريق Data Environment
ويظهر التقرير عند الضغط على زر الطباعة بشكل سليم و لكن المشكلة هي انه عند الضغط مرة اخرى على زر طباعة يظهر الخطأ التالي:
Run-time error 3705: this operation is not allowed when the object is open
أعتقد ان الرسالة تقول انه لايمكن إعادة الاتصال بقاعدة البيانات لانه قمنا بالاتصال في المرة الاولى
لذلك قمت بكتابة كود لإغلاق الاتصال و لكن ظهرت الرسالة التالية:
Run-time error 3709: The connection cannot be used to perform this operation. It's either closed or invalid in this context
وهنا اعتقد انا الرسالة تعني انه لايمكن الاتصال بقاعدة البيانات لان الاتصال مغلق او غير صالح
وهذا الكود:
وهذا كود الاغلاق الذي وضعته:
أرجو المساعدة و لكم جزيل الشكر...
ارجو مساعدتي في هذه المشكلة
لدي تطبيق متصل بقاعدة بيانات اكسس عن طريق Data
وصممت تقرير Data Report عن طريق Data Environment
ويظهر التقرير عند الضغط على زر الطباعة بشكل سليم و لكن المشكلة هي انه عند الضغط مرة اخرى على زر طباعة يظهر الخطأ التالي:
Run-time error 3705: this operation is not allowed when the object is open
أعتقد ان الرسالة تقول انه لايمكن إعادة الاتصال بقاعدة البيانات لانه قمنا بالاتصال في المرة الاولى
لذلك قمت بكتابة كود لإغلاق الاتصال و لكن ظهرت الرسالة التالية:
Run-time error 3709: The connection cannot be used to perform this operation. It's either closed or invalid in this context
وهنا اعتقد انا الرسالة تعني انه لايمكن الاتصال بقاعدة البيانات لان الاتصال مغلق او غير صالح
وهذا الكود:
كود :
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وهذا كود الاغلاق الذي وضعته:
كود :
If DataEnvironment1.rsCommand1.State = adStateOpen Then
DataEnvironment1.rsCommand1.Close
End If
If DataEnvironment1.Connection1.State = adStateOpen Then
DataEnvironment1.Connection1.Close
End If
MsgBox "Closed!"أرجو المساعدة و لكم جزيل الشكر...
شكرا لك اخي تركي الحلواني 
