كيف يتم نقل بدء تشغيل النموذج برمجيا

مجرد فكرة:

تصميم ماكرو مرتبط بالزر عندما ينشط بعلامة true

الفكرة تقوم على التالي:

نفترض أن لدينا نموذج اٍفتتاحية يفتح مباشرة عند فتح الملف, و منه بواسطة زر أمر عند الضغط عليه يتم فتح النموذج لاٍدخال البيانات, نريد برمجيا تغيير خيارات التشغيل لكي يتم فتح نموذج اٍدخال البيانات دون المرور على الشاشة الافتتاحية.

نقوم بانشاء حقل خيار نعم/لا في جدول اٍسمه table1 نسميه check

في الشاشة الافتتاحية ننشىء زر بواسطته نحدد خيار بدأ التشغيل و نكتب الكود التالي عند النقر عليه:

DoCmd.SetWarnings False
DoCmd.RunSQL "Update Table1 set check = true where check = false "
DoCmd.SetWarnings True

هذا الكود يقوم بوضع علامة صح على حقل check الموجود في الجدول Table1

اْثر ذلك نقوم بكتابة الكود التالي في خاصية عند تنشيط لنموذج الشاشة الافتتاحية الكود التالي:

If Me.check = True Then
DoCmd.OpenForm "نموذج1"
DoCmd.Close acForm, Me.Name
End If

دور هذا الكود عند بداية تحميل النموذج أنه يستعلم اٍذا كان حقل check معلم بصح فاٍنه لا يفتح و يمر مباشرة الى الأمر الخاص بفتح النموذج المسمى نموذج1 .

نفس الطريقة و لكن بطريقة عكسية و ذلك للتحكم في النموذج الذي نريد فتحه عند بداية التشغيل حيث أن هناك زر يقوم بوضع علامة لا في حقل check بالجدول Table1 هذا اٍذا أردنا أن يبدأ البرنامج بالشاشة الافتتاحية, أما في حالة عدم الضغط عليه فاٍن النموذج 1 يفتح مباشرة دون المرور على الشاشة الافتتاحية.

المثال المرفق يوضح كل الشرح الوارد أعلاه.

خيار بدأ التشغيل.rar

أحرجتني يا مشرفنا الغالي

:D :D :D :D :D :D :D

الله يجعله في ميزان حسناتك

مشكور أخي الكريم و موفق اِن شاء الله.