الكود الخاص بعرض كامل الشاشة
كيف اجعل عرض مشروع الأكسس يغطي كل الشاشة
من حصائص النموذج
1) من تنسيق اختر نمط الحدود بلا
2) من حدث عند الفتح اختر حدث واكتب الكود التالي docmd.maximize
3) من خيار منبثق اختر منبثق نعم وشكلي مشروط نعم
ومن ثن قم بعرض النموذج سيظهر لك عل كامل الشاشة ان شاء الله
حدث عند الفتح اختر حدث واكتب الكود التالي docmd.maximize
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
قولوا لا إله إلا الله تفلحوا
حدث عند الفتح اختر حدث واكتب الكود التالي docmd.maximize
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
قولوا لا إله إلا الله تفلحوا
uaerakr الطرق اللي اطرقولها الاعضاء كلها بتأدي المطلوب
وفي كمان طريقة اذا كان الفورم هو الفورم الرئيسي وبدك اياه يفتح على طول على حجم الشاشة
بتنشأ ماكرو جديد
بتحط فيه
Maximize
OpenForm وبتدخل تحت في form name اسم الفورم الرئيسي
وبتسمي الماكرو
Autoexec
وإن شاء الله بيفتح عند الفورم الرئيسي على كل الشاشة
بعد وضع نموذج في وضع كامل الشاشة
مثلا القائمة الرئيسية ويوجد بها ازاريير
لدخول لنماذج اخر
اريدها بنفس فتح نموذج الأول كامل الشاشة حيث حين عملتها منبثق وبلا حدود
اعطاني كما قلت كامل الشاشة ولكن عند دخول الى نماذج الأخره لايمكن ان تظهر كيف الحل
اريد بعد فتح نموذج الرئيسي كامل الشاشة ان يفتح نموذج تابع له بنفس الشكل كامل الشاشة فكيف
ارجوكم افيدوني
يا أخي الكريم لقد أجاب عليك بعض الاخوة
إختر الفورم المراد تكبيره .. ضعه في وضع التصميم
اضغط بالماوس اليمين عليه .. إختر من القائمة خصائص
أختر من علامة التبويب حدث .. أختر من حدث عند الفتح
ضع هذا الكود
DoCmd.Maximize
أنتهى
السلام عليكم
مشكور على الرد
انا فاهم ما تقول
ولكن انظر الى المثال المرفق يوجد زر فتح نموذج
حيث لا يفتح النموذج الآخر
لأن عند الفتح DoCmd.Maximize
حيث يغطي الشاشة الاولى ولا يظهر نموذج الاخر
فكيف تفتح نموذج الآخر نفس الشي بتكبير نموذج وايضا الرجوع الى نموذج الرئيسي بشكل كامل
تم تعديل هذه المشاركة بواسطة tareq_fat في 24 مارس 2008 في 01:35
مشكور الف شكر لك
بس ممكن تشرحلي كيف عملته
وثانيا: عند الضغط على فتح نموذج تلاحظ عند الفتح تظهر شكل الاكسس من ملف وتحرير اي انه
اريد ان يكون بشكل محترف حيث لايظهر عند الفتح خلفية الاكسس
اي كانما تفتح نموذج الآخر يصغر نموذج ويفتح الآخر
هل هناك طريقة للبرمجة افضل من ذلك
والا هى طريقة الوحيدة
وشكرا لك
على ردك
والله يحفظك
أعتقد انه يجب عليك ضبط خاصية "الاحتواء ضمن الشاشة" لكل نموذج إلى "لا" (ليس عندي أوفيس انجليزي لاقول لك ما هو المقابل)
كما يجب ضبط الحدث On resize في خصائص النموذج إلى docmd.maximize
Private Sub Form_Resize()
DoCmd.Maximize
End Sub
تقريباً أنا أفهم ما تريد :yes:
تفضل
