صباح حسين

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

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

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

السلام عليكم . اخواني الاعزاء قبل فترة طرحت مشكلة في منتداكم ووسارع الاخوان الافاضل مشكورين بتزويدي بكود لاستعلام يقوم بجلب البيانات من اكسس وقد استفت من الكود كثيرا . وقد واجهتني مشكلة عندما تحولت الى اوفيس 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 إلى تجاوز هذا الحد إذا تضمنت قاعدة البيانات عدداً كبيراً من الكائنات (جدول، ماكرو، نموذج، تقرير،) هل هذا يعني وجود خطا في تصميم القاعدة ام وجود بيانات كثيرة . سوف احاول ان امسح البيانات واعادة التجربة . اذا لديك اية ملاحظات ارجو ان تسعفني بها . سلامي لك و للجميع

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

up

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

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

السلام عليكم . اولا : اسف ان لم اوفق في طلبي . سوف احاول ان اوضح لنفرض نحن نريد جميع الكتب لنفس المؤلف وفي نفس الوقت لنفس دار النشر اي ندخل في text1 اسم المؤلف وفي text2 ندخل دار النشر . اي تحقق شرط (and) ومن الممكن زيادة عدد texts حسب عدد الاعمدة التي من الممكن ان تدخل في شرط البحث من خلالها . مع امكانية ان يكون احدى الحقول لاتحتوي على قيم . ثانيا : اذا كانت لديكم جدول اوسياق معين في اكمال الموضوع ارجو ان لاتغيره لاجلي تابع في طرح الموضوع حسب جدولك الى ان تصل الموضوع الذي استفسر عنه لاني وفي الاحوال سوف استمر في متابعة هذا الموضوع المفيد والشيق الى الاخير ان شاء الله اتمنى انني وفقت في طرح الموضوع .

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

اشكرك اخي احمد وادعو الله ان يرزقك ووالديك الخير في الدنيا والاخرة

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

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

الف الف شكر لك اخي احمد . وطريقة اكثر من رائع ومدهش . اخي العزيز اذا امكن ان تشرح لي جملة الاستعلام sSQL والطريقة الذي استطيع زيادة الاعمدة المنقولة بالاستعلام على سبيل المثال (departmen) واود ان استعمل الكود في مجالات اخرى لانه كما ذكرت رائع بكل معنى الكلمة

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