طلب كود ضغط وإصلاح قاعدة البيانات

[thneyan]

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

اذا ممكن احد يفيدنا من الاساتذه الفضلاء اكسس 2016

 

 

 

[محمد أبوعبدالله]

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

شخصيا استخدم هذا الكود

Public Function AutoCompact()
'  ضغط واصلاح
         If FileLen(CurrentDb.Name) > 30000000 Then ' اذا كان حجم الملف 30 ميجا تقريبا
            Application.SetOption "Auto compact", True ' سيقوم البرنامج بعمل ضغط واصلاح تلقائي عند اغلاق البرنامج
            Application.SetOption "Show Status Bar", True
            vStatusBar = SysCmd(acSysCmdSetStatus, "يحتاج التطبيق لإعادة تشغيل")
        Else
            Application.SetOption "Auto compact", False 'والا فلا تقم بعمل ضغط واصلاح
            Application.SetOption "Show Status Bar", False
        End If

End Function

وفي النموذج الرئيسي استدعيه هكدا

Call AutoCompact

تحياتي

[عبد اللطيف سلوم]

يوجد خيار في اكسس 2016

ضغط عند الاغلاق

قم بتفعيله 

شاهد الصورة المرفقة

[thneyan]

ابو عبدالله

شكرا 

عبد اللطيف 

شكرا 

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