طريقة عمل فورم متناسق على جميع الشاشات

[safaa salem5]

انا عايزه حد يظبط الفورم زى اللى موجود فى الملف اللى اسمه ضبط حجم النموزج حاولت بس تقريبا فى مشكله فى استدعاء المديولات الموجودهضبط حجم النموذج على الشاشة-.rar

lab4.rarFetching info...

[زياد الحسناوي]

  في 22‏/10‏/2023 at 21:30, safaa salem5 said:

انا عايزه حد يظبط الفورم زى اللى موجود فى الملف اللى اسمه ضبط حجم النموزج حاولت بس تقريبا فى مشكله فى استدعاء المديولات الموجودهضبط حجم النموذج على الشاشة-.rar

lab4.rar 245.55 kB · 1 download

Expand  

تفضل 

lab4.accdbFetching info...

[safaa salem5]

  في 22‏/10‏/2023 at 22:52, زياد الحسناوي said:

تفضل 

lab4.accdb 1.91 MB · 12 downloads

Expand  

ميرسى جدا لحضرتك سلمت يداك يريت تفهمنى الخطأ كان فين

[safaa salem5]

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

[Eng.Qassim]

  في 23‏/10‏/2023 at 07:58, safaa salem5 said:

يريت تفهمنى الخطأ كان فين

Expand  

السيد الحسناوي قام برفع السطر Option Explicit حتى لايظهر خطأ عدم التعريف

مع وجود هذا السطر يكون الحل:

Dim frmResize As Form

    Me.KeyPreview = True
    
 Set frmResize = New FormResize
 Set frmResize = Me

 

[safaa salem5]

  في 23‏/10‏/2023 at 17:50, Eng.Qassim said:

السيد الحسناوي قام برفع السطر Option Explicit حتى لايظهر خطأ عدم التعريف

مع وجود هذا السطر يكون الحل:

Dim frmResize As Form

    Me.KeyPreview = True
    
 Set frmResize = New FormResize
 Set frmResize = Me

 

Expand  

 

 

 

 

 

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

نفس الكلام المكتوب فى حدث عند الفتح

وبيدينى خطأ 

اكيد فى تعديل فى خصائص الفورم نفسها

 بس انا عنيا تعبانى مش بعرف اركز كتير

 

تم تعديل أكتوبر 23, 2023 بواسطه safaa salem5

[safaa salem5]

  في 23‏/10‏/2023 at 17:50, Eng.Qassim said:

السيد الحسناوي قام برفع السطر Option Explicit حتى لايظهر خطأ عدم التعريف

مع وجود هذا السطر يكون الحل:

Dim frmResize As Form

    Me.KeyPreview = True
    
 Set frmResize = New FormResize
 Set frmResize = Me

 

Expand  

Option Explicitفعلا الجمله دى مكانتش عندى تمام كدا اشكرك جدا