(07-12-16, 10:39 AM)Ashraf Elafify كتب : اخى العزيز

ممكن كتابه الكود

او ارسال نموذج مصغر للفورم التى بها مشكله

حتى يتسنى لنا معرفه الخطأ بالضبط

والرد عليك

وفقك الله

(08-12-16, 01:14 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا اخي الكريم  هذه الرسالة تظهر عندما تحاول إستخدام كائن ما وهو مغلق مثلا إستخدام كائن الـ ADO الخاص بالإتصال  بقاعدة البيانات أو الكائن الخاص بفتح الجدول تأكد أولا قبل إستعمال الكائن أن متصل بقاعدة البيانات أو متصل بالجدول بإستخدام الأمر Open التابع له .

(21-12-16, 03:49 AM)ahmedabdelaliem كتب : السلام  عليكم ورحمة الله وبركاته
اخي الكريم عدل الزر رقم 3 باضافة هذا السطر البسيط

PHP كود :

Set r1 = Nothing 


او انقل الكود للزر رقم 3 كاملا كما هو مبين

PHP كود :

Private Sub Command3_Click()

Dim K As String

Set r1 = Nothing

K = "select format(eff,""dd/mm/yyyy"") as Effective,wellnum,choke,I AS Netoil,bsw as WC,gor as GOR,fluid,SALI AS SALINITY,REM"
 K = K & " from qwell  where wellnum<>'" & g2321 & "'"
 
 
 If Text2 <> "" Then K = K & " and wellnum='" & Text2 & "'"
 If Combo7 <> "" Then K = K & " and station='" & Combo7 & "'"
 If Combo1 <> "" Then K = K & " and REM='" & Combo1 & "'"
 
 If IsNumeric(Text4) Then K = K & " and gor>=" & Text4
 If IsDate(MaskEdBox1) Then K = K & " and eff=#" & Format(MaskEdBox1, "mm/dd/yyyy") & "#"
 If IsDate(MaskEdBox3) Then K = K & " and eff>=#" & Format(MaskEdBox3, "mm/dd/yyyy") & "#"
 If IsDate(MaskEdBox2) Then K = K & " and eff<=#" & Format(MaskEdBox2, "mm/dd/yyyy") & "#"
 
 
 If r1.State = 1 Then r1.Close
 r1.Open K, cn, adOpenKeyset, adLockPessimistic
 



Set MSHFlexGrid1.DataSource = r1.DataSource
Lab16.Caption = r1.RecordCount
End Sub 


بالتوفيق