عاوز كود يجعل النموذج شكلى او مشروط

[ahmed-saad]

السلام عليكم

هذه مشاركتي الاولى وارجو مساعدتي

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

ياريت يكون فى كود يبقى احسن

 

تحياتى للجميع

[ابوخليل]

حسب علمي ..

لا يمكن التحكم في هذه الخصائص الا في وضع التصميم للنموذج

ومع ذلك يمكن التحايل وتطبيق التغيير شرط كون امتداد القاعدة هو mdb

حيث لا يمكننا تطبيق ذلك في حال تم التحويل الى صيغة mde

 

اجعل هذا الكود في حدث زر في نموذج آخر

التطبيق يتم على نموذج اسمه frm1

DoCmd.OpenForm "frm1", acDesign, , , acFormPropertySettings, acHidden
Forms!frm1.PopUp = True
Forms!frm1.Modal = True
DoCmd.OpenForm "frm1", acNormal

خطوات الكود:

فتح نموذج1 على التصميم في وضع مخفي

تغيير خصائص الفورم الى  منبثق=نعم  ، مشروط=نعم

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

[ahmed-saad]

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

بارك الله فيك وجزاك الله خيراً أخي أبو خليل الكود المرفق يعمل بشكل سليم ولكن عند اغلاق form1 تظهر رسالة تقول هل تريد حفظ التغييرات

هل يمكن التخلص من هذة الرسالة

جزاك الله خيرا وشكرك على سرعة الرد .

[ابوخليل]

نعم يمكن 

اضف هذا السطر

DoCmd.Save acForm, "frm1"

 

لتصبح الجملة كاملة :

On Error Resume Next
DoCmd.OpenForm "frm1", acDesign, , , acFormPropertySettings, acHidden
Forms!frm1.PopUp = True
Forms!frm1.Modal = True
DoCmd.Save acForm, "frm1"
DoCmd.OpenForm "frm1", acNormal

[ahmed-saad]

الله ينور عليك استاذ ابو خليل هذا هو المطلوب لك جزيل الشكر .