اذهب الي المحتوي
أوفيسنا

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


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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information