ضغط عند الإغلاق فى خيارات أكسس يتم إزالتها بعد تشغيل ملف Hide Access Window

[أحمد العيسى]

السلام عليكم

كما يعلم الجميع إن تأشير ميزة الضغط عند الإغلاق الموجودة فى خيارات أكسس أفضل من كتابة كود بهذا الخصوص

حتى لا يتضخم الملف   كلما تم تشغيله

لكن عند تشغيل ملف أكسس باستخدام كود Hide Access Window  تجد أن علامة ضغط عند الإغلاق قد تم  إزالتها

ما أقصده  موضح بالصورة التالية

أو

أرفقت ملف حتى يتم تجربته من خلالكم

قد يكون هناك كود يعمل على تلك الإزالة ولم أتوصل إليه .. وإذا كانت الإجابة بالنفى

أكون فى فى انتظار حل بديل

شاكر اهتمامكم مقدماً

db.mdb

[Foksh]

مداخلة سريعة ..

أعتقد أن السبب هو في جملة الإغلاق DoCmd.Quit ، وبما أنك أخفيت واجهة آكسيس ، فجملة الإغلاق هذه تجعل آكسيس يتخطى ويتجاوز الضغط والإصلاح لمنع تجمد أو حدوث Crash لواجهة آكسيس .

لذا اعتقد ان تفعيل الخاصية يدوياً من خلال السطر :-

Application.SetOption "Auto Compact", True

في حدث عند التحميل أو الفتح ( حسب الحدث الذي تستدعي فيه جملة Hide Access Window  يتم وضعه قبلها طبعاً ) في النموذج الأول ، وأيضاً استعمالها بالإستدعاء نفسه قبل جملة الاغلاق DoCmd.Quit في أي زر يقوم بإغلاق الواجهة .. وستلاحظ أن الخيار يبقى مفعلاً في القاعدة .

[أحمد العيسى]

تمام

بعد مداخلتك لفت نظري  سطر فى كود فتح النموذج الأول frm_Pass

Private Sub Form_Open(Cancel As Integer)
 fSetAccessWindow (SW_HIDE)

' إلغاء خاصية ضغط البيانات فى خيارات برنامج أكسس قبل تشغيل التطبيق
 Application.SetOption "Auto compact", False
 
 Me.txtPass.SetFocus
End Sub

فتم تعديله مؤقتاً  بوضع علامة  Rem  على سطر المشكلة

' إلغاء خاصية ضغط البيانات فى خيارات برنامج أكسس قبل تشغيل التطبيق
' Application.SetOption "Auto compact", False

وتم الحل

يبدو أننى تعجلت فى وضع مشكلة قبل البحث بجدية

تم تعديل منذ 1 ساعه بواسطه أحمد العيسى

[Foksh]

11 دقائق مضت, أحمد العيسى said:

وتم الحل

لم أجرب مرفقك ، وكانت مداخلتي دون تجربة ملفك . والحمد لله الذي هداك بالعودة لهذا السطر