ali saud قام بنشر أغسطس 24, 2018 مشاركة قام بنشر أغسطس 24, 2018 سلام عليكم ممكن مساعدة بهذا الكود ------------------------------------- اريد ان اقوم بحذف الرسالة التي تخرج لي عند الخروج بانة هل تريد القيام بعملية الضغط ام لا اريد اي يكون عملة بدون رسالة مباشر عن الاغلاق يقوم بعمل الضغط 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 رابط هذا التعليق شارك More sharing options...
بسملة جمال قام بنشر أغسطس 24, 2018 مشاركة قام بنشر أغسطس 24, 2018 Application.SetOption "Auto compact", True 2 رابط هذا التعليق شارك More sharing options...
ali saud قام بنشر أغسطس 24, 2018 الكاتب مشاركة قام بنشر أغسطس 24, 2018 (معدل) شكرا لك اختي وجاري التجربة تم تعديل أغسطس 24, 2018 بواسطه ali saud 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.