ضغط قاعدة البيانات

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

يمكن عمل الطريقتين سواء بزر امر او عند الخروج من البرنامج

الطريقة الاولى :

1. اعرض النموذج في وضع التصميم

2. انشيء زر امر وليكن اسمه مثلا CompactAndRepair وضع به هذا الكود

Function CompactDB()
SendKeys "{F10}"
SendKeys "]sq"
End Function

Private Sub CompactAndRepair_Click()
Call CompactDB
End Sub

اما الطريقة الثانية

1. افتح برنامج الاكسيس

2. من شريط القوائم اختر ادوات

3. اختر من الادوات خيارات

4. اختر منها التبويب عام

وستجد في الاسفل خانة اختيار بجانبها " ضغط عند الاغلاق " قم بإختيارها ثم موافق

وهذا مثال به الطريقتين

CompressAndRepair.rar

اختكم

زهره

الاخت زهره

عاجز عن الشكر :lol:

((((وجعل الله ذلك في ميزان حسناتك))))