KHALED JAMAL قام بنشر مارس 30, 2009 قام بنشر مارس 30, 2009 السلام عليكم ورحمة اللة وبركاتة ارجو منكم اعلامي كيف يتم حذف جدول او ستعلامات في تاريخ معين تلقائياً KHALED_M1967@YAHOO.COM وشكراً لكم
osama ababneh قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 اخي العزيز يمكنك وضع الكود التالي والذي يقوم بحذف جدول وحذف استعلام يتم وضع الكود في حدث عند الفتح للنموذج الرئيسي للبرنامج If Date > "03/04/2009" Then DoCmd.DeleteObject acTable, table1 DoCmd.DeleteObject acQuery, query1 End If
KHALED JAMAL قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 كل الشكر والتقدير لك اخي الكريم هل المقصود في TABLE1 اسم الجدول المراد حذفة اقصد هل اضع على الكود اسم الجدول الموجود على برنامجي ولنفرض اسمة IMPORT
osama ababneh قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 نعم اخي الكريم Table1 هي اسم الجدول الذي تريد حذفة و Query1 هو اسم الاستعلام وعليك تغييرها حسب اسم الجدول او الاستعلام الموجود لديك وحسب الكود فانة عندما يكون التاريخ اكبر من 3-4-2009 فان الكود سيحذف الجدول Table1 والاستعلام Query1
KHALED JAMAL قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 شكرً على ردك السريع وقد طبقت الكود ولكن للاسف لم يعمل مع اذا تكرمت ارفق لك مثال على قاعدة بيانات اذا ممكن تساعدني باضافة الكود عن طريقك ولك كل الشكر والتقدير KHALED.zip
KHALED JAMAL قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 السلام عليكم ورحمة الله وبركاتة اخي الكريم OSAMA هل ممكن المساعدة باضافة الكود عن طريقك ولك كل الشكر والتقدير
osama ababneh قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 اخي الكريم اعتذر عن التاخير ..... ولكن تعرف مشاغل الحياة على كل حال تفضل الملف بعد التعديل علما ان الكود عدلتة ليحذف استعلام TCR1 بمجرد فتح النموذج واذا كان التاريخ اكبر من 2-4-2009 على كل حال اعتقد انك ستواجة مشكلة لاحقا وهي ان الكود سيعمل في كل مرة يفتح فيها البرنامج وبعد ان يقوم بحذف الاستعلام والجدول وتفتح النموذج فانة ستظهر رسالة خطأ لان الاستعلام والجدول غير موجودة على كل حال لكل حادث حديث KHALED.rar
KHALED JAMAL قام بنشر أبريل 4, 2009 الكاتب قام بنشر أبريل 4, 2009 السلام عليكم ورحمة الله وبركاتة كل الشكر والتقدير لك اخي الكريم وبارك الله فيك كود الحذف يعمل بشكل ممتاز لكن الملاحظ انة اذا غيرت تاريخ الحذف في الكود ليصبح مثلاً If Date > "15/04/2009" فانة عند فتح البرنامج يقوم الكود بحذف الاستعلام والجدول حتى لو كان التاريخ اقل من 2009/04/15 اقصد لو قمت بفتح البرنامج بتاريخ 2009/04/10 فان الكود يحذف الاستعلام والجدول. بارك الله فيك وبجهودك
KHALED JAMAL قام بنشر أبريل 4, 2009 الكاتب قام بنشر أبريل 4, 2009 السلام عليكم ورحمة الله وبركاتة الاخ الكريم اسامة المحترم اكتشف الموضوع يجب ان يكون شرط التاريخ كالتالي IF DATE > #15/04/2009# بدلاً من "03/04/2009" < IF DATE بارك الله فيك يا اخ اسامة
KHALED JAMAL قام بنشر أبريل 4, 2009 الكاتب قام بنشر أبريل 4, 2009 If Date > #05/04/2009# Then DoCmd.DeleteObject acTable, "TABLE1" DoCmd.DeleteObject acQuery, " QUERY1" End If End Sub
KHALED JAMAL قام بنشر أبريل 5, 2009 الكاتب قام بنشر أبريل 5, 2009 السلام عليكم ورحمة الله وبركاتة تحية طيبة نعم اخ OSAMA بعد حذف الجدول والاستعلام تلقائيا ويتم تشغيل البرنامج مرة اخرى تظهر رسالة خطأ لان الاستعلام والجدول غير موجود هل ممكن عدم اظهار هذة الرسالة. وهل توجد طريقة لايقاف عمل البرنامج كلياً في تاريخ معين. مع الشكر الجزيل
osama ababneh قام بنشر أبريل 5, 2009 قام بنشر أبريل 5, 2009 اخي العزيز اعتذر عن التاخر بالرد على كل حال اذا اردت ان يتم ايقاف البرنامج بتاريخ معين فهذه فكرة اخرى طبعا بعد ان تفتح الملف سيعطك رسالة بان الصلاحية انتهت ولفتحة استخدم شفت end_date.rar
KHALED JAMAL قام بنشر أبريل 5, 2009 الكاتب قام بنشر أبريل 5, 2009 السلام عليكم ورحمة الله وبركاتة اشكرك اخ اسامة على هذة المعلومات القيمة وبارك الله فيك
خالد عبد المنعم قام بنشر أبريل 8, 2009 قام بنشر أبريل 8, 2009 اخى العزيز خالد اولا اشكر الاخ اسامه على التفاعل معك و لكن يعيب هذه الطريقه انها عند تغير التاريخ بجهازك الى يوم سابق سوف يعمل جرب تغير التاريخ فى جهازك الى 3/4/2009 مع العلم ان الملف المرفق تاريخ انتهاءه 4/4/2009
KHALED JAMAL قام بنشر أبريل 8, 2009 الكاتب قام بنشر أبريل 8, 2009 الاخ العزيز admiral لقد طبقت هذه العملية واعطت النتيجة التي ابحث عنها مع مراعاة وضع التاريخ بين هذة الاشارات #التاريخ# ولك الشكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.