مشكلة النماذج الغير منبثقة مع موديول عند تشغيلها على أكسس 2007 فما فوق

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

السلام عليكم

لكل من النموذج المنبثق والغير منبثق خصائص هامة يطول الشرح فيهما

كمثال من الناحية الجمالية عند الخروج (الضغط على زر خروج) :

النموذج المنبثق ( PopYes ) يستجيب فى جميع الإصدارات للأمر  ( Call GenerateExit ) بالموديول المرفق BasCloseForm

بينما الغير منبثق ( PopNo ) لا يستجيب إلا فى أكسس 2003  فقط ، وباقى الإصدارات كأنه غير موجود رغم عدم وجود خطأ

هل هناك إضافة للموديول المذكور تجعله راضياً عن  النماذج الغير منبثقة ( فى إصدارات 2007 فما فوق )  ؟؟

 

db.mdb

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

اعجبتني الفكرة ، و وددت المشاركة بالتالي ..

ما عليك فعله بيدك حتى تنجح الفكرة .. في المديول :-

الخطوة الأولى اذهب للدالة :-

Private Function ExitTimer() As Boolean

وقم بحذف السطر :-

Call DeleteObject(hRgn1)

 

الخطوة الثانية أيضاً اذهب للدالة :-

Public Function GenerateExit() 'MyForm As Form)

وأضف بعد هذا السطر :-

 Do Until ExitTimer()

السطر DoEvents ، لتصبح جملة الحلقة :-

    Do Until ExitTimer()
        DoEvents
        Sleep clngTimerInterval
    Loop

وبعد هذه الحلقة مباشرة ، أضف السطر التالي :-

Call DeleteObject(hRgn)

 

 

 

 

وعليه ، فأن الملف كاملاً بعد هذه التعديلات يصبح :-

 

db.mdb

تم تعديل منذ 53 دقائق بواسطه Foksh
إضافة صورة توضيحية

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

منذ ساعه, Foksh said:

اعجبتني الفكرة ، و وددت المشاركة بالتالي ..

ممتاز  جداً

كل شكري وامتناني لحضرتك

لقد أرجعت الناحية الجمالية ( فى الخروج من البرنامج ) بعد أن قمت _أنا_ بتعطيلها لهذا السبب المذكور فى الموضوع