طلب كود خاصية 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

 

جعفر

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

  في 2‏/4‏/2021 at 18:28, jjafferr said:

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

 

 

 

Expand  

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

j1.accdbFetching info...

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

[king5star]

  في 3‏/4‏/2021 at 03:44, ازهر عبد العزيز said:

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

j1.accdb 404 kB · 0 downloads

Expand  

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

 

j1.accdbFetching info...

[kha9009lid]

  في 3‏/4‏/2021 at 03:44, ازهر عبد العزيز said:

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

Expand  

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

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

تعديل بعض خصائص النموذج يتم التعديل بشكل يدوي بالدخول على عرض تصميم النموذج ثم من الخصائص يتم الاختيار وهذا ماعمله الاستاذ @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.accdbFetching info...

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

[jjafferr]

همممم

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

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

 

جعفر

 

  في 3‏/4‏/2021 at 07:22, kha9009lid said:

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

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

Expand  

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

 

[kha9009lid]

  في 3‏/4‏/2021 at 07:35, jjafferr said:

همممم

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

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

Expand  

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

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

  في 3‏/4‏/2021 at 07:35, jjafferr said:

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

Expand  

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

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

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

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

  في 3‏/4‏/2021 at 07:35, jjafferr said:

 

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

 

Expand  

[kha9009lid]

👆 هههههه

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

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

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

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

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

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

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

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

تحياتي

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

  في 3‏/4‏/2021 at 08:37, kha9009lid said:

👆 هههههه

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

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

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

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

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

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

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

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

تحياتي

Expand  

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

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

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

[jjafferr]

  في 3‏/4‏/2021 at 08:52, ازهر عبد العزيز said:

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

Expand  

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

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

 

جعفر

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

  في 3‏/4‏/2021 at 08:54, jjafferr said:

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

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

 

جعفر

Expand  

وهو المطلوب 

[jjafferr]

  في 3‏/4‏/2021 at 08:37, kha9009lid said:

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

Expand  

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

 

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

 

جعفر

[kha9009lid]

  في 3‏/4‏/2021 at 08:52, ازهر عبد العزيز said:

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

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

Expand  

 

  في 3‏/4‏/2021 at 09:06, ازهر عبد العزيز said:

وهو المطلوب 

Expand  

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

  في 3‏/4‏/2021 at 09:10, jjafferr said:

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

 

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

Expand  

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

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

قالت العرب :

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

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

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

j1.accdbFetching info...

[kha9009lid]

  في 3‏/4‏/2021 at 09:51, ازهر عبد العزيز said:

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

Expand  

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

على العموم

بدلا من

Me.WindowWidth = Me.fw

ضع

Me.InsideWidth = Me.fw

 

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

  في 3‏/4‏/2021 at 10:27, kha9009lid said:

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

على العموم

بدلا من

Me.WindowWidth = Me.fw

ضع

Me.InsideWidth = Me.fw

 

Expand  

جزيل الشكر