مطلوب كود لتصغير شاشة البرنامج

أخي الكريم .. استخدم هذه العبارة

DoCmd.Minimize

شكراً للمشرف أحمد الحربي على تكرمه بالرد

ولكن الكود السابق خاص بالنماذج

والمطلوب كود تصغير البرنامج ( كل محتويات البرنامج )

علماً بأن الكود سيكون في النموذج الرئيسي وبالتنسيق التالي :

منبثق (لا)

مشروط (لا)

اخي الفاضل يوجد لديك عدة طرق لتصغير برنامج الاكسيس كاملا

1. الطريقة الاولى بواسطة الوحدة النمطية بحيث نضع هذا الكود في وحدة نمطية جديده

Option Explicit

   Global Const SW_SHOWNORMAL = 1
   Global Const SW_SHOWMINIMIZED = 2
   Global Const SW_SHOWMAXIMIZED = 3

   Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, _
	   ByVal nCmdShow As Long) As Long

Function MaximizeApp()
   Dim Maxit%
   Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function

Function MinimizeApp()
   Dim Minit%
   Minit% = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED)
End Function

Function RestoreApp()
   Dim Restoreit%
   Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function

ثم نضع زر امر وفي حدث عند النقر نقوم بإستدعاء الوظيفة بهذه الطريقة

CALL MinimizeApp

الطريقة الثانية

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

DoCmd.RunCommand acCmdAppMinimize

الطريقة الثالثة

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

DoCmd.Minimize

وطبعا وضعت لك هذه الطريقة الاخيرة لتعرف الفرق بين الاكواد

وهذا مثال لكل الامثلة

Minimize.rar

طبعا لو تلاجظ انني لم اتطرق في الاجابة لخصائص النموذج بمعنى ان جميع خصائص النموذج على الوضع الطبيعي ومن ضمنها

منبثق : لا

شكلي او مشروط : لا

اختكم

زهره

للرفع

والشكر الجزيل للاستاذة زهراء

جزاك الله خيراً وأزهر الله ايامكم بالخير والعافية