كود ضغط واصلاح

[ali saud]

سلام عليكم 
ممكن مساعدة بهذا الكود 
-------------------------------------
اريد ان اقوم بحذف الرسالة التي تخرج لي عند الخروج 
بانة هل تريد القيام بعملية الضغط ام لا 
اريد اي يكون عملة بدون رسالة مباشر عن الاغلاق يقوم بعمل الضغط 
 

Dim status As Boolean
    
    status = 0
    
    If (MsgBox("ضغط عند الخروج" & Chr(13) & Chr(13) & "هل تريد ضغط قاعدة البيانات عند الخروج", vbYesNo, "ضغط اٍختياري")) = vbYes Then
        status = 1
    Else
        status = 0
    End If
    
    Application.SetOption "Auto Compact", status

 

[بسملة جمال]

Application.SetOption "Auto compact", True

[ali saud]

شكرا لك اختي وجاري التجربة

تم تعديل أغسطس 24, 2018 بواسطه ali saud