thneyan قام بنشر نوفمبر 21, 2019 قام بنشر نوفمبر 21, 2019 السلام عليكم ورحمة الله وبركاته اذا ممكن احد يفيدنا من الاساتذه الفضلاء اكسس 2016
محمد أبوعبدالله قام بنشر نوفمبر 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
عبد اللطيف سلوم قام بنشر نوفمبر 21, 2019 قام بنشر نوفمبر 21, 2019 يوجد خيار في اكسس 2016 ضغط عند الاغلاق قم بتفعيله شاهد الصورة المرفقة 2
thneyan قام بنشر نوفمبر 21, 2019 الكاتب قام بنشر نوفمبر 21, 2019 ابو عبدالله شكرا عبد اللطيف شكرا الله يعطيكم العافيه 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.