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

[safaa salem5]

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

lab4.rar

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

منذ ساعه, safaa salem5 said:

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

lab4.rar 245.55 kB · 1 download

تفضل 

lab4.accdb

[safaa salem5]

9 hours ago, زياد الحسناوي said:

تفضل 

lab4.accdb 1.91 MB · 12 downloads

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

[safaa salem5]

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

[Eng.Qassim]

9 ساعات مضت, safaa salem5 said:

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

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

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

Dim frmResize As Form

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

 

[safaa salem5]

2 hours ago, Eng.Qassim said:

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

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

Dim frmResize As Form

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

 

 

 

 

 

 

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

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

وبيدينى خطأ 

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

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

 

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

[safaa salem5]

3 hours ago, Eng.Qassim said:

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

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

Dim frmResize As Form

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

 

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