صباح حسين

بارك الله في جهودكم العظيمة . في تطوير المنتدى وفي اصدار هذا العمل البديع

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

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

السلام عليكم . اخواني الاعزاء قبل فترة طرحت مشكلة في منتداكم ووسارع الاخوان الافاضل مشكورين بتزويدي بكود لاستعلام يقوم بجلب البيانات من اكسس وقد استفت من الكود كثيرا . وقد واجهتني مشكلة عندما تحولت الى اوفيس 2007 فان الكود لايعمل وقد قمت خمت ان الخلل قد يكون في امتداد ملف اكسس. الكود لايتعرف على امتداد اكسس 2007 . وقد حاولت تغير الكود الذي بلون الاحمر الى( accdb) , ولكني لم افلح بالوصول الى الحل . اتمنى ان اجد الحل عند احد الاخوان علما ان [b1] خلية في اكسيل يتحتوي على اسم قاعدة بيانات اكسس 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,ejaza_type,to_day from temp_day as x order by x.emb_name " Set rsData = New ADODB.Recordset rsData.Open sSQL, sConnect, adOpenForwardOnly, _ adLockReadOnly, adCmdText If Not rsData.EOF Then [a6].CopyFromRecordset rsData rsData.Close End If

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

up

up

السلام عليكم ادرج لكم نص رسالة الخطاء (System Error &H80004005 (-2147467259 اتمنى ان اجد الحل عندكم

السلام عليكم اخواني . لقد واجهتني مشكلة لم اعرف سببها لحد الان . لقد ساعدني احد الاخوان وههو الاخ العزيز ( احمد عبد الناصر) في منتداكم الرائع في كتابة كود 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

شكرلك اخي ابو عارف لتجاوبك معي بالصراحة انا سوف استفاد من الحل الذي ذكرته حيث احتاجه ايضا ولكن هل ينفع مع الرسائل التي تظهر عند تشغيل استعلام الحاق او حذف حيث كما تعلم هنالك رسائل تاكيد تظهر كلما تم تشغيل هكذا نوع من الاستعلام اكرر شكري وتقديري لك ولجميع الاخوان في هذا المنتدى الشيق والمفيد

للرفع

السلام عليكم . لدي استعلام الحاق واستعلام حذف وعند التنفيذ تظهر رسائل تاكيد الالحاق او الحذف واود التخلص من هذه الرسائل او عدم ظهورها وقد كنت استخدم الكود( DoCmd.SetWarnings False)) في 2003 ولكنه لا يعمل في 2007 . علما ان تنفيذ الاستعلامات في 2007 يتم عن طريق ماكرو

السلام عليكم . الف الف شكر لك اخي ابو خليل ولجميع الاخوان بالمنتدى وزادكم الله من نعمه وغفر لكم ذنوبكم . وادامك الله ذخرا وعونا لنا . تمت الاجابة

اخي ابو خليل جربت تطبيق الحل الذي طلبته ولكن ظهرت لي رسالة خطأ هذا نصها (يقترن هذا الخطأ عادةً بالتحويل البرمجي لقاعدة بيانات كبيرة إلى ملف MDE. ويتم إنشاء عدد كبير من مراجع معرفات الجدول لكل جدول وذلك بسبب الأسلوب المستخدم في التحويل البرمجي لقاعدة البيانات. يمكن فقط لمشغل قاعدة بيانات Access إنشاء 2048 معرف جدول مفتوح كحد أقصى في نفس الوقت. يمكن أن يؤدي تصدير قاعدة بيانات كـ MDE إلى تجاوز هذا الحد إذا تضمنت قاعدة البيانات عدداً كبيراً من الكائنات (جدول، ماكرو، نموذج، تقرير،) هل هذا يعني وجود خطا في تصميم القاعدة ام وجود بيانات كثيرة . سوف احاول ان امسح البيانات واعادة التجربة . اذا لديك اية ملاحظات ارجو ان تسعفني بها . سلامي لك و للجميع

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