تعيين نموذج افتراضى عند الفتح بالكود

[احمد حبيبه]

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

هذه طريقه فتح نموذج بشكل تلقائي عند فتح برنامج الاكسس

 فتح القائمة File واختيار Options واختيار Current Database نقوم بتحديد النموذج الذي نريده ان يبدأ عند تشغيل الاكسس من خلال القائمة الموجودة امام Display Form

المطلوب .... تطبيق نفس الطريقة ولكن عن طريق كود برمجي وليس بالطريقة السابقة

[kha9009lid]

ممكن عن طريق انشاء مايكرو

ميكرو فرعي

ثم نحديد الفورم المطلوب

احفظ المايكرو باسم AutoExec

 

 

[احمد حبيبه]

جارى التجربه ..... جزاك الله خيرا

تمام فكره ممتازه ...تم عمل الماكرو والنتيجه ممتازه

لكن لو تم تطبيق الطريقه القديمه مع طريقه الماكرو بيظهر 2 نموذج عند الفتح

هل يوجد حل لاجبار البرنامج على تجاهل الطريقه القديمه والاعتماد فقط على الماكرو

تم تعديل مارس 4, 2021 بواسطه احمد حبيبه

[kha9009lid]

21 دقائق مضت, احمد حبيبه said:

لكن لو تم تطبيق الطريقه القديمه مع طريقه الماكرو بيظهر 2 نموذج عند الفتح

هل يوجد حل لاجبار البرنامج على تجاهل الطريقه القديمه والاعتماد فقط على الماكرو

لماذا تستخدم الطريقتين

اما اختيار الفورم من خيارات الاكسس او ما تطلق عليه الطريقة القديمة وحينا لا داعي للميكروا

او استخدم عن طريق مايكروا بدء التشغيل فقط ولاتستخدم الطريقة القديمة

[احمد حبيبه]

1 دقيقه مضت, kha9009lid said:

لماذا تستخدم الطريقتين

اما اختيار الفورم من خيارات الاكسس او ما تطلق عليه الطريقة القديمة وحينا لا داعي للميكروا

او استخدم عن طريق مايكروا بدء التشغيل فقط ولاتستخدم الطريقة القديمة

فى عملى تم تصميم ملف للعمل عليه وتم اختيار نموذج عن طريقه استطيع متابعه عمليات الدخول والخروج

لكن اكتشفت بالصدفة احد الزملاء قام بتفعيل عمل الشيفت  وغير نموذج الدخول واستخدم الملف 

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

او لو فيه طريقه لإلغاء عمل الشيفت .... لأنني الغيت تفعيله لكن يسهل كسر هده الحماية

تحياتي اخى الكريم

[kha9009lid]

 

33 دقائق مضت, احمد حبيبه said:

هل يوجد حل لاجبار البرنامج على تجاهل الطريقه القديمه والاعتماد فقط على الماكرو

على كل حال الامر هين ممكن في نفس المايكروا نضيف اجراء يغلق الفورم الغير مرغوب فيه

بالنسبة لموضوع الغاء الشفت توجد مشاركات كثير في الموقع ممكن الاطلاع عليها

 

 

[احمد حبيبه]

جارى التجربه

 

[kha9009lid]

12 ساعات مضت, kha9009lid said:

على كل حال الامر هين ممكن في نفس المايكروا نضيف اجراء يغلق الفورم الغير مرغوب فيه

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

لذا ممكن نعمل وحدة نمطية نضع فيها الكود التالي

Public Function AllForms()
Dim frm As Form
  For Each frm In Application.Forms
 If frm.Name <> "form_1" Then DoCmd.Close acForm, frm.Name
  Next frm
End Function

ثم نستدعيه من مايكروا بداية التشغيل

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

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

لذا شاهد هذا الموضوع 👇 ربما يقدم لك حل افضل

اقتباس

 

موفق اخي احمد 🙂

[احمد حبيبه]

اخى الحبيب kha9009lid

جزاك الله خير وزادك الله علما 

اشكرك جدا جد