thneyan قام بنشر نوفمبر 21, 2019 مشاركة قام بنشر نوفمبر 21, 2019 السلام عليكم ورحمة الله وبركاته اذا ممكن احد يفيدنا من الاساتذه الفضلاء اكسس 2016 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر نوفمبر 21, 2019 مشاركة قام بنشر نوفمبر 21, 2019 وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود 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 تحياتي 3 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر نوفمبر 21, 2019 مشاركة قام بنشر نوفمبر 21, 2019 يوجد خيار في اكسس 2016 ضغط عند الاغلاق قم بتفعيله شاهد الصورة المرفقة 2 رابط هذا التعليق شارك More sharing options...
thneyan قام بنشر نوفمبر 21, 2019 الكاتب مشاركة قام بنشر نوفمبر 21, 2019 ابو عبدالله شكرا عبد اللطيف شكرا الله يعطيكم العافيه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان