كود لا يعمل في بعض الحاسبات

[صباح حسين]

السلام عليكم اخواني . لقد واجهتني مشكلة لم اعرف سببها لحد الان . لقد ساعدني احد الاخوان وههو الاخ العزيز ( احمد عبد الناصر) في منتداكم الرائع في كتابة كود sql يقوم بجلب بيانات من جدول ضمن برنامج تم انشائه بواسطة اكسس والكود يعمل بشكل جيد وممتاز الا انه في بعض الحاسبات لا تعمل بل تظهر رسالة خطاء في النظام وقد قمت بتغير الاعدادات اللغة والتاريخ بحيث اصبحت متشابهة في الحاسبات كلها ومسحت الاوفيس ثبت نفس النسخ في الحاسبات ولكن لم اتخلص من المشكلة . وقد قمت بوضع علامة(') لتخطي كود البرمجي على مراحل مما ساعدني في تحديد ان الخطاء تظهر في السطر المكتوب باللون الاحمر . اتمنى ان اجد الحل عندكم حيث ان البرنامج يتم الاستفادة منه حاليا في العمل في بعض المواقع دون اخر مما وضعني في موقف محرج. 

 

 

Dim rsData As ADODB.Recordset

Dim sConnect As String

Dim sSQL As String

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".mdb;Persist Security Info=True "

sSQL = "select distinct x.emb_id,emb_name,department from ejazat as x,nformation as y where x.emb_id=y.emb_id and month(from_day)=" & [b3] & " and year(from_day)=" & [b2] & "  or (x.emb_id=y.emb_id and month(from_day)<" & [b3] & " and month(from_day+moda_ejaza)>=" & [b3] & "  and year(from_day)=" & [b2] & " )  or (x.emb_id=y.emb_id and month(from_day)>" & [b3] & " and month(from_day+moda_ejaza)>=" & [b3] & "  and year(from_day)<" & [b2] & "  and year(from_day+moda_ejaza)=" & [b2] & " )   order by x.emb_id"

Set rsData = New ADODB.Recordset

rsData.Open sSQL, sConnect, adOpenForwardOnly, _

adLockReadOnly, adCmdText

تم تعديل سبتمبر 18, 2013 بواسطه صباح حسين

[صباح حسين]

السلام عليكم ادرج لكم نص رسالة الخطاء 

(System Error &H80004005 (-2147467259

اتمنى ان اجد الحل عندكم 

[صباح حسين]

up

[صباح حسين]

up

[الـعيدروس]

اعتقد لو تطرحى الموضوع

في منتدى الاكسس افضل

ربما تجدي الحل هناك

دام الكود تعامله مع الاكسس

[صباح حسين]

شكرا لتجاوبك معي اخي العزيز . لقد تغلبت على المشكلة والحمد لله 

تمت الاجابة