كيف يتم ضغط قواعد البيانات برمجيا؟

جرب الكود التالى

Public Sub CompactAndRepairCurrentDatabase()
	With CommandBars.Add(, 1, , True)
		.Controls.Add 1, 2071, , , True
		.Visible = True
		.Controls(1).SetFocus
		DoEvents
		SendKeys "~"
	End With
End Sub

وفى حدث عند النقر للزر ضع الكود التالى

		Call CompactAndRepairCurrentDatabase

تقبل تحياتى

شكرا على المحاولة اخي الكريم

ولكن

لم يتم الضغط والإصلاح ؟!!!!!! رغم اتباع الخطوات الصحيحة ...

منتظرا الرد

بارك الله بك اخي هاني على المساعده

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

الضغط والإصلاح لجميع نسخ الأكسيس بضغطة زر

/index.php?showtopic=173683

الشرح الكامل لعملية الضغط والأصلاح لجميع نسخ الأكسيس بضغطة زر

/index.php?showtopic=150236

شكرا للجميع

ولكن كل الطرق لم تنجح مع الإصدار الاخير 2007 وباللغة العربية

(يعني عندي اوفيس عربي 2007 ) ولما طبقت كل الطرق المذكوره لم تنجح للأسف ....

ALSAHER_9 كتب:

شكرا للجميع

ولكن كل الطرق لم تنجح مع الإصدار الاخير 2007 وباللغة العربية

(يعني عندي اوفيس عربي 2007 ) ولما طبقت كل الطرق المذكوره لم تنجح للأسف ....

أخي الكريم

بالنسبة لأوفيس 2007 الإنجليزي يمكنك استعمال هذا الكود في زر أمر

SendKeys "{F10}"
SendKeys "fmc"

أما أوفيس 2007 عربي فله هذا الكود

SendKeys "{F10}"
SendKeys "م+غض"

وأخبرني بالنتيجة

لا للأسف كل الطرق لم تجدي نفعاً

رغم اهمية هذا الموضوعل لايلاقي اهتماما