ضغط وإصلاح البرنامج

-waf

لكي تقوم بضغط وإصلاح البرنامج عن طريق زر أمر فأتبع التالي

إنشيء وحدة نمطيه عامة كالتالي

Public Function CompactRepairDatabase()
On Error GoTo Err
If MsgBox("سيتم عمل صيانة للبرنامج الآن هل هذا ما تريد فعله", vbMsgBoxRight _
+ vbInformation + vbYesNo + vbDefaultButton2, "صيانة النظام") = vbNo Then
Exit Function
Else
'السطر التالي إذا كان الأوفس إنجليزي وإذا كان عربي ستظهر رسالة رقمها 5 يعني أن الأوفيس عربي 
CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction
End If
Err:
If Err.Number = 5 Then
'إذا كان الخطأ = 5 هذا يعني أن الأوفيس عربي وهذا السطر لضغط قواعد الأوفيس عربي
CommandBars("Menu Bar").Controls("أ&دوات").Controls("أدوات م&ساعدة لقواعد البيانات").Controls("&ضغط قاعدة البيانات وإصلاحها...").accDoDefaultAction
End If

End Function

ثم تستدعي الوحدة النمطية عن طريق زر الأمر كما يلي

Call CompactRepairDatabase

استخدمته مع قواعد بيانات أوفيس 2003 ولم أجربه مع باقي الاصدارات فجربوه

وهذا مثال مرفق على ما سبق

CompactRepairDatabase.rar

بارك الله فيك أخي المشرف الأستاذ مصلح سوف أجربه على باقي الاصدارات

جربت مثالك على اكسس 2000 الاصدار العربي ونجح 100% وان شاء الله اجربه على الاصدارات الاخرى

بارك الله فيك وجزاك الله خير اخي الكريم ابو ساره

الله يعطيك العافيه

ونفع الله بعلمك