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

[احمد حبيبه]

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

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

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

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

[kha9009lid]

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

ميكرو فرعي

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

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

 

 

[احمد حبيبه]

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

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

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

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

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

[kha9009lid]

  في 4‏/3‏/2021 at 19:09, احمد حبيبه said:

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

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

Expand  

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

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

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

[احمد حبيبه]

  في 4‏/3‏/2021 at 19:32, kha9009lid said:

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

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

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

Expand  

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

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

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

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

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

[kha9009lid]

 

  في 4‏/3‏/2021 at 19:09, احمد حبيبه said:

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

Expand  

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

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

 

 

[احمد حبيبه]

جارى التجربه

 

[kha9009lid]

  في 4‏/3‏/2021 at 19:43, kha9009lid said:

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

Expand  

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

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

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

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

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

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

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

  اقتباس

 

Expand  

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

[احمد حبيبه]

اخى الحبيب kha9009lid

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

اشكرك جدا جد