:ح: اغلاق وفتح قاعدة البيانات

[ساجد لله]

السلام عليكم

اريد ان اغلق وافتح قاعدة البيانات فكيف يكون ذلك ..

وممكن امر ضغط قاعدة البيانات يقوم بالمطلوب وحاولت ان اكتب له كوت ولكن لم اوفق

Application.RunCommand , CompactDatabase,

بشرط ان يكون الامر فى زر امر من على النموذج وليس من خلال قائمة

[سهل احمد العريشي]

اهلا وسهلا بك اخي العزيز

اولا لم افهم قصدك من

اريد ان اغلق وافتح قاعدة البيانات فكيف يكون ذلك

ارجو التوضيح

ثانيا تريد ضغط قاعدة البيانات يا أخي لماذا التعب هنالك طريقه واذا اردت من خلال زر أمر أرجو التعقيب على الموضوع

الطريقه هي ضغط القاعده تلقائيا عند الأغلاق وهي أفضل طريقه وجدتها الى الآن فعند الخروج من البرنامج يتم تلقائيا ضغط القاعده والطريقه كالتالي

افتح قاعدة البيانات ومن القائمه أدوات --- خيارات--- عام- -- تجد ضغط عند الأغلاق ضع عليه علامة الصح ومن ثم موافق وأنتهى الأمر

وتقبل تحياتي

أخيك سهل احمد ( ابو نعيم )

[سهل احمد العريشي]

[

بسم الله الرحمن الرحيم

ضع هذا الكود في زر أمر لضغط القاعده

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

وتقبل تحياتي أخيك سهل احمد ( ابو نعيم )

[ساجد لله]

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