اريد حل لهذه الجملة

اعتقد

rs.open "select * from tblinfo where fcount = ' " & text1.text & "'" ,db,adopenstatic,adlockreadonly

تكون العبارة الصحيحة

السلام عليكم ورحمة الله وبركاته

قم بإغلاق الريكورد أولاً قبل الاستعلام

If rs.State = 1 Then
	rs.Close
End If

تم وضع كود الغلق داخل جملة شرطية لتلافى حدوث خطأ عند استدعاء طريقة الغلق والريكورد مغلق .

:lol: السلام عليكم ورحمة الله وبركاته :lol:

بعد التحية اخي العزيز ليس العيب في كده انتا لو قريت وتفحصت كود الخطا لعرفت ان المقصود بال object هو rs اي ان الجدول الا انتا ساند له rs مفتوح في الزاكرة وطبعا ما ينفعش تفتحه مرة تانية وهو ما فتوح لازم تقفله الاول وبعد كده تفتحه .

لاغلاق rs عن طريق rs.close :blink:

وكلن انا هقول لك طريقة احسن من كده اكتب الكود ده قبل ما تفتح rs او تسند له جدول عشان يفتحه كالاتي :-

If rs.state=1 then 
rs.close
End if

ومعني ه>ا الكود انه ازا كان rs مفتوح لحظة عمل الكود فانه سوف يقوم باغلاقه وعلي فكرة الكود ده تحطه قبل ما تكتب كود الفتح للجدول عشان يروح يتاكد من حالة rs هل هو مفتوح ام مغلق والسلام عليكم ورحمة الله وبركاته .................

بسم الله الرحمن الرحيم

شكرا اخواني على المتابعة

اخواني لقد استخدمت الشفرات السابقة ولم تنفعي و المشكلة نفسها ...

ولكن هنا اريد ان اوضح المشكلة اكثر فاكثر ..

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

if rs.state = 1 then
rs.close
end if
rs.open "select * from tblinfo ",db,adopenstatic,adlockreadonly
if rs.eof=false then rs.movefirst
set datareport1.datasource=rs
datareport1.show

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

ولكن عند استبدال الكود التالي :

rs.open "select * from tblinfo ",db,adopenstatic,adlockreadonly

بالكود التالي :

rs.open "select * from[tblinfo] where[fcount] = ' " & text1.text & " ',db,adopenstatic,adlockreadonly"

حيث الــ text1 هو مربع نص يتم اولا ادخال كلمة البحث المراد الاستعلام عنها ومن يتم عرضها في التقرير

وعند تنفيذ تلك الجملة يظهر الخطأ التالي

run-time error '3705':

operation is not allowed when the object is open

ارجو المساعدة ولكم مني جزيل الشكر و التقدير

اخواني الاعزاء ..

هنا ارفق لكم بعض الحلول التي واجتها في برنامجي على حساب الكود الذي ارفقته ... حيث انني استعملت نفس الكود السابق واسندت الـــ rs الى اداة الداتا قريد .. فلم يظهر اي رسالة خطأ .. ولكن الغريب هنا !!!!! عند اسنادها بالداتا ريبوت ( التقرير )

ارجو منكم التفاعل مع الموضوع

وشكرا

َمقتبس

rs.open "select * from[tblinfo] where[fcount] = ' " & text1.text & " ',db,adopenstatic,adlockreadonly"

rs.open "select * from [tblinfo] where [fcount] = ' " & text1.text & " ' ",db,adopenstatic,adlockreadonly

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

يكون الكود أكثر مثالية عن وضع * في تعليمة Select

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

بسم الله الرحمن الرحيم

الحمد لله

شكرا اخواني على مبادرتكم الطيبه حيث انني لقيت حل للمشكلة حيث انني في البداية اقوم باخفاء الفورمه ومن ثم استدعي ظهور التقرير ولكن هذه العملية خطأ ... ولكن الحل الصحيح وهو ان تقوم باسناد الــ rs الى التقرير ومن ثم تقوم باغلاق الفورم واظهار التقرير

set report.datasource = rs

unload me

report.show

شكرا شكرا