ضغط قاعدة بيانات من خلال زر امر

هذا الكود لضغط قاعدة البيانات

DoCmd.RunCommand acCmdCompactDatabase

لكن لم اعلم ما سبب عدم تطبيقه للضغط

هناك طريق افضل وهي

من خلال ادوات .......ثم خيارات ........... ثم اختر عام ........ ستلاحظ على الييمين خيار اسمه ضغط عند الاغلاق ضع علامة صح امامه

فعند اغلاق البرنامج سيقوم بعملية الضغط تلقائيا

اخوكم/ المبرمج2003

تحياتي

أولا سيتم إنشاء نسخة مضغوطة بإسم مختلف ثم حذف القديمة وإعادة تسميتها بنفس الإسم القديم

CompactDatabase "C:\DATA.mdb", "C:\DATA1.mdb"

Kill "C:\DATA.mdb"

CompactDatabase "C:\DATA1.mdb", "C:\DATA.mdb"

Kill "C:\DATA1.mdb"

السلام عليكم

اسهل طريقه انا اعملها هكذا

اضيف زرار وفي الحدث عند الضغط عليها اكتب هذا

CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction

والله الموفق

جزاكم الله خيراً أخوانى

لقد نجع الكود اخى Pc Xpert بارك الله فيك

اخي Pc Xpert

لك كل التقدير والأعجاب والأحترام ...

حيث كان هذا من احد مشاكلي ولم استطيع حلها عن طريق الكود

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