طلب كود خاصية borderstyle

[ازهر عبد العزيز]

السلام عليكم 

احتاج   كود يجعل خاصية borderstyle في النمودج من thin الى none 

تم تعديل أبريل 2, 2021 بواسطه ازهر عبد العزيز

[jjafferr]

وعليكم السلام 🙂

 

استعمل مساعد برنامج الاكسس في VBE ، وابحث فيه ، وستحصل على معظم اجاباتك :

Form.BorderStyle Property


None
 0
 The form has no border or related border elements. The form isn't resizable.
 
Thin
 1
 The form has a thin border and can include any of the border elements. The form isn't resizable (the Size command on the Control menu isn't available). You often use this setting for pop-up forms. (If you want a form to remain on top of all Microsoft Access windows, you must also set its PopUp property to Yes.)
 
Sizable
 2
 (Default) The form has the default border for Microsoft Access forms, can include any of the border elements, and can be resized. You often use this setting for normal Microsoft Access forms.
 
Dialog
 3
 The form has a thick (double) border and can include only a title bar, Close button, and Control menu. The form can't be maximized, minimized, or resized (the Maximize, Minimize, and Size commands aren't available on the Control menu). You often use this setting for custom dialog boxes. (If you want a form to be modal (modal: A window or dialog box that requires the user to take some action before the focus can switch to another form or dialog box. Dialog boxes and messages are usually modal.), however, you must also set its Modal property to Yes. If you want it to be a modal pop-up form, like most dialog boxes, you must set both its PopUp and Modal properties to Yes.)
 

.

فيصبح الكود :

me.borderstyle=0

 

جعفر

[ازهر عبد العزيز]

9 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

 

 

استادي جعفر @jjafferr بعد عدت محاولات فاشلة لم استطيع تطبيق الكود ارجو المساعدة في المرفق الموجود  باي طريقة ممكنة  وذلك  بتطبيقة على النمودج f2  باي طريقة ممكنة سواء من نفس النمودج او من  من خلال النمودج f1  

j1.accdb

تم تعديل أبريل 3, 2021 بواسطه ازهر عبد العزيز

[king5star]

منذ ساعه, ازهر عبد العزيز said:

استادي جعفر @jjafferr بعد عدت محاولات فاشلة لم استطيع تطبيق الكود ارجو المساعدة في المرفق الموجود  باي طريقة ممكنة  وذلك  بتطبيقة على النمودج f2  باي طريقة ممكنة سواء من نفس النمودج او من  من خلال النمودج f1  

j1.accdb 404 kB · 0 downloads

حسب ما فهمت من طلبك 

 

j1.accdb

[kha9009lid]

3 ساعات مضت, ازهر عبد العزيز said:

استادي جعفر @jjafferr بعد عدت محاولات فاشلة لم استطيع تطبيق الكود ارجو المساعدة في المرفق الموجود  باي طريقة ممكنة  وذلك  بتطبيقة على النمودج f2  باي طريقة ممكنة سواء من نفس النمودج او من  من خلال النمودج f1  

السؤال موجه الى استاذنا ولكن احاول الاجابة بعد اذن معلمي القدير جعفر

الكود صحيح ولكن لن يعمل بشكل مباشر وسيتم التفصيل

تعديل بعض خصائص النموذج يتم التعديل بشكل يدوي بالدخول على عرض تصميم النموذج ثم من الخصائص يتم الاختيار وهذا ماعمله الاستاذ @king5star

ولكن طلبك اخي ازهر عن طريق الكود وسبق ان وضع اخونا ومعلمنا العود @ابوخليل كود جميل يعالج الامر

فقط اضفت عليه امر تعديل نمط الحدود

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

DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden

ثم نعدل خصائص منبثق نعم ومشروط نعم ونمط الحدود الى بلا

Forms!f2.PopUp = True
Forms!f2.Modal = True
Forms!f2.BorderStyle = 0

ثم للتغلب على رسالة المطالبة بالحفظ نضع الامر

DoCmd.Save acForm, "f2"

ليكون الكود النهائي

DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden
Forms!f2.PopUp = True
Forms!f2.Modal = True
Forms!f2.BorderStyle = 0
DoCmd.Save acForm, "f2"

وللتراجع عن التغيير  نضع الامر

DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden
Forms!f2.PopUp = False
Forms!f2.Modal = False
Forms!f2.BorderStyle = 1
DoCmd.Save acForm, "f2"

بالتوفيق اخي ازهر

j1.accdb

تم تعديل أبريل 3, 2021 بواسطه kha9009lid

[jjafferr]

همممم

الموضوع ما يستاهل كل هذا الشغل ، اعمله في الاعدادات والسلام 🙂

إلا اذا كان سؤال امتحان او سؤال تحدي 🙂

 

جعفر

 

13 دقائق مضت, kha9009lid said:

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

DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden

وطبعا هذه الطريقة لن تعمل في الاكسس بصيغة mde و accde

 

[kha9009lid]

13 دقائق مضت, jjafferr said:

همممم

الموضوع ما يستاهل كل هذا الشغل ، اعمله في الاعدادات والسلام 🙂

إلا اذا كان سؤال امتحان او سؤال تحدي

نعم اخي جعفر ولكن ....

ازهر ما يهرول عبث

13 دقائق مضت, jjafferr said:

وطبعا هذه الطريقة لن تعمل في الاكسس بصيغة mde و accde

كلام سليم احسن الله اليك يا ابا عبد الله

[ازهر عبد العزيز]

@jjafferr ,  @kha9009lid جزاكم الله عني كل خير 

[ازهر عبد العزيز]

42 دقائق مضت, jjafferr said:

 

وطبعا هذه الطريقة لن تعمل في الاكسس بصيغة mde و accde

 

[kha9009lid]

👆 هههههه

استاذ ازهر كل مشكلة ولها حل

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

وكما هو معلوم ان هذه الطريقة لن تعمل في بصيغة mde و accde

فاذا كانت الحاجة لهذه الطريقة كبيرة ممكن التحايل

بوضع نسخة اخرى من النموذج f2 بدون حدود

وفي الوضع العادي يفتح النموذج الاصلي بنمط حدود

وعند تحقق شرط معين يتم فتح النموذج الاخر بدون حدود

ولكن هذا موضوع اخر

تحياتي

[ازهر عبد العزيز]

15 دقائق مضت, kha9009lid said:

👆 هههههه

استاذ ازهر كل مشكلة ولها حل

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

وكما هو معلوم ان هذه الطريقة لن تعمل في بصيغة mde و accde

فاذا كانت الحاجة لهذه الطريقة كبيرة ممكن التحايل

بوضع نسخة اخرى من النموذج f2 بدون حدود

وفي الوضع العادي يفتح النموذج الاصلي بنمط حدود

وعند تحقق شرط معين يتم فتح النموذج الاخر بدون حدود

ولكن هذا موضوع اخر

تحياتي

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

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

تم تعديل أبريل 3, 2021 بواسطه ازهر عبد العزيز

[jjafferr]

2 دقائق مضت, ازهر عبد العزيز said:

طريقة لتحريك  النمودج في الشاشة

هنا تمت مناقشة هذا الموضوع :

تحريك نموذج اكسس بالضغط على الماوس - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[ازهر عبد العزيز]

11 دقائق مضت, jjafferr said:

هنا تمت مناقشة هذا الموضوع :

تحريك نموذج اكسس بالضغط على الماوس - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

وهو المطلوب 

[jjafferr]

31 دقائق مضت, kha9009lid said:

استاذ ازهر كل مشكلة ولها حل

بس لما تعطي الصورة كاملة 🙂

 

وانا متأكد بأنه هناك طرق اخرى ، ولكني اشرت لك على موضوع جاهز 🙂

 

جعفر

[kha9009lid]

35 دقائق مضت, ازهر عبد العزيز said:

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

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

 

20 دقائق مضت, ازهر عبد العزيز said:

وهو المطلوب 

بالتوفيق اخي ازهر

17 دقائق مضت, jjafferr said:

بس لما تعطي الصورة كاملة 🙂

 

وانا متأكد بأنه هناك طرق اخرى ، ولكني اشرت لك على موضوع جاهز

نعم اخي جعفر احسنت

فهم السؤال نصف الاجابة

قالت العرب :

قد أسفر الصبح لذي عينين

[ازهر عبد العزيز]

الاساتدة @jjafferr  , @kha9009lid    لكني الان احتاج تغيير حجم النمودج بهدا الشكل ارجو الاطلاع على محاولاتي التي بأت بالفشل  في المرفق للنمودج f2 

j1.accdb

[kha9009lid]

35 دقائق مضت, ازهر عبد العزيز said:

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

اليوم انا اشتغل بدون ما اكون فاهم اي شي

على العموم

بدلا من

Me.WindowWidth = Me.fw

ضع

Me.InsideWidth = Me.fw

 

[ازهر عبد العزيز]

3 دقائق مضت, kha9009lid said:

اليوم انا اشتغل بدون ما اكون فاهم اي شي

على العموم

بدلا من

Me.WindowWidth = Me.fw

ضع

Me.InsideWidth = Me.fw

 

جزيل الشكر