تغيير حجم النموذج عند الفتح

[ابو ابراهيم11]

السلام عليكم 

الف شكر وتقدير على الرد والتوضيح هناك عدة اسئلة 

1- لا اعرف كيف اضيف قاعدة بيانات مع المشاركة رغم القراءة مرات عديدة للتعليمات 

2- لايتغير حجم الفورم عندي حتى لو وضعت الكود التالي في فورم _ لود فورم 

Me.Form.InsideHeight = 6900

Me.Form.InsideWidth = 12700

وماهي اعدادات وخصائص النموذج وكيفية تعديل الخصائص التي يتم تعديلها لتعطي شكل جمالي للنموذج(تغيير حجم النموذج)

2- اريد اريد كذلك ان اعمل عند فتح النموذج اعمل عند فتح النموذج يقوم بالانطلاق من نقطه وحجم معين الى حجم تم وضع مقاسه في كود ثم يغلق ويفتح فورم اخر 

[.Azhar]

اكتب الكود التالي 

Private Sub Form_Load()

DoCmd.Maximize

End Sub

مع تغيير هذه الخصائص

[ابوخليل]

اكتب الكود التالي 

Private Sub Form_Load()

DoCmd.Maximize

End Sub

مع تغيير هذه الخصائص

eew.PNG

 

بارك الله فيك استاذ ازهر

 

ولكن المطلوب هو  :

 

 عند فتح النموذج يقوم بالانطلاق من نقطه وحجم معين الى حجم تم وضع مقاسه في كود ثم يغلق ويفتح فورم اخر 

 

الاخ ابو ابراهيم

 لا اعرف كيف اضيف قاعدة بيانات مع المشاركة رغم القراءة مرات عديدة للتعليمات

 

انظر هنا http://www.officena.net/ib/index.php?showtopic=31250

[ابو ابراهيم11]

السلام عليكم 

شكرا على الرد ولكن اخي اعتقد ان الكود المذكور خاص لفتح الفورم على حجم الشاشة

[ابوخليل]

تفضل

وآمل ان يكون هو ما تبحث عنه

تكبير متدرج.rar

[ابو ابراهيم11]

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

شكرا علي الرد

استاذ انه قريب مما هو مطلوب ولن الاغلاق ليس كما هو مطلوب فقبل ان يفتح الفورم 2 اريد الفورم الاول  يغلق بنفس طريقة الفتح  التي بدا بها . 

وكذلك استاذ لم تبين ما هي الاعدادات في الخصائص التي قمت بتغييرها كي يعمل بهذا الحجم لان جوابكم سوف يغنيني عن كثير من الاسئلة حول الموضوع 

[ابوخليل]

استاذ انه قريب مما هو مطلوب ولن الاغلاق ليس كما هو مطلوب

 بل هو ما طلبت :

 

2- اريد اريد كذلك ان اعمل عند فتح النموذج اعمل عند فتح النموذج يقوم بالانطلاق من نقطه وحجم معين الى حجم تم وضع مقاسه في كود ثم يغلق ويفتح فورم اخر 

 

 

فلم تذكر التناقص او التراجع ولا يغلق بنفس طريقة الفتح ؟

 

الآن تم تحقيق طلبك الاخير في المثال المرفق مع الشرح

 

Option Compare Database
Const i As Double = 4000 'هذا الرقم هو المسؤول عن زيادة ونقص حجم النموذج
Dim x As Boolean   'وسيط نعم/لا متغير كشرط لتشغيل العداد
Private Sub Form_Open(Cancel As Integer)
Me.InsideHeight = 0 ' الارتفاع يساوي صفر عند الفتح
Me.InsideWidth = 0  'العرض = صفر عند الفتح
x = False  ' الوسيط=لا عند الفتح
End Sub


Private Sub Form_Timer() ' عداد النموذج وقد جعلنا قيمته عند الحدث = 100
If x = False Then  ' اذا كان الوسيط = لا
Call Enlarg ' شغل التكبير
Else '  وإلا
Call Redu ' شغل التصغير
End If
End Sub
Private Sub Enlarg() ' وحدة نمطية تزيد الطول والعرض 100 كل 0.1 من الثانية
If i > Me.InsideHeight Then
Me.InsideHeight = Me.InsideHeight + 100
Me.InsideWidth = Me.InsideWidth + 100
Else
x = True
End If
End Sub
Private Sub Redu() ' وحدة نمطية تنقص الطول والعرض 100 كل 0.1 من الثانية
If Me.InsideHeight > 0 Then
Me.InsideHeight = Me.InsideHeight - 100
Me.InsideWidth = Me.InsideWidth - 100
End If
If Me.InsideHeight < 10 Then ' اذا كان الارتفاع اقل من 10
DoCmd.Close ' اغلق النموذج
DoCmd.OpenForm "frm2", acNormal ' وافتح النموذج رقم2
End If
End Sub

تكبير وتصغير متدرج.rar

[ابو ابراهيم11]

الشكر والتقدير للاستاذ الفاضل ابو خليل 

نعم هذا ماهو مطلوب 

[علي المصري]

جميل جدا يا استاذ ابو خليل

جزاك الله خيرا

[ابو ابراهيم11]

شكر وتقدير للاستاذ ابو خليل على الرد 

وكذلك لكل من ساهم بالاجابة