اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفحذف جدول او استعلامات في تاريخ معين تلقائياً


KHALED JAMAL

الردود الموصى بها

اخي العزيز

يمكنك وضع الكود التالي والذي يقوم بحذف جدول وحذف استعلام

يتم وضع الكود في حدث عند الفتح للنموذج الرئيسي للبرنامج

If Date > "03/04/2009" Then
DoCmd.DeleteObject acTable, table1
DoCmd.DeleteObject acQuery, query1
End If

رابط هذا التعليق
شارك

نعم اخي الكريم Table1 هي اسم الجدول الذي تريد حذفة و Query1 هو اسم الاستعلام وعليك تغييرها حسب اسم الجدول او الاستعلام الموجود لديك

وحسب الكود فانة عندما يكون التاريخ اكبر من 3-4-2009 فان الكود سيحذف الجدول Table1 والاستعلام Query1

رابط هذا التعليق
شارك

شكرً على ردك السريع

وقد طبقت الكود ولكن للاسف لم يعمل مع

اذا تكرمت ارفق لك مثال على قاعدة بيانات اذا ممكن تساعدني باضافة الكود عن طريقك

ولك كل الشكر والتقدير

KHALED.zip

رابط هذا التعليق
شارك

اخي الكريم

اعتذر عن التاخير ..... ولكن تعرف مشاغل الحياة

على كل حال

تفضل الملف بعد التعديل علما ان الكود عدلتة ليحذف استعلام TCR1 بمجرد فتح النموذج واذا كان التاريخ اكبر من 2-4-2009

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

على كل حال لكل حادث حديث

KHALED.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاتة

كل الشكر والتقدير لك اخي الكريم وبارك الله فيك

كود الحذف يعمل بشكل ممتاز

لكن الملاحظ انة اذا غيرت تاريخ الحذف في الكود ليصبح مثلاً If Date > "15/04/2009"

فانة عند فتح البرنامج يقوم الكود بحذف الاستعلام والجدول حتى لو كان التاريخ اقل من 2009/04/15

اقصد لو قمت بفتح البرنامج بتاريخ 2009/04/10 فان الكود يحذف الاستعلام والجدول.

بارك الله فيك وبجهودك

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاتة

الاخ الكريم اسامة المحترم

اكتشف الموضوع يجب ان يكون شرط التاريخ كالتالي

IF DATE > #15/04/2009#

بدلاً من "03/04/2009" < IF DATE

بارك الله فيك يا اخ اسامة

:clapping::clapping::clapping:

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاتة

تحية طيبة

نعم اخ OSAMA بعد حذف الجدول والاستعلام تلقائيا ويتم تشغيل البرنامج مرة اخرى تظهر رسالة خطأ لان الاستعلام والجدول غير موجود هل ممكن عدم اظهار هذة الرسالة.

وهل توجد طريقة لايقاف عمل البرنامج كلياً في تاريخ معين.

مع الشكر الجزيل

رابط هذا التعليق
شارك

اخي العزيز

اعتذر عن التاخر بالرد

على كل حال اذا اردت ان يتم ايقاف البرنامج بتاريخ معين فهذه فكرة اخرى

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

end_date.rar

رابط هذا التعليق
شارك

اخى العزيز خالد

اولا اشكر الاخ اسامه على التفاعل معك

و لكن يعيب هذه الطريقه

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

جرب تغير التاريخ فى جهازك الى 3/4/2009

مع العلم ان الملف المرفق تاريخ انتهاءه 4/4/2009

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information