تمام صفحه كردن فرم

[F_ashigh]

با سلام به تمام دوستان عزيز
ميخواستم بدونم چطوري ميشه فرم را تمام صفحه كرد به صورتي كه آيكن Office در بالاي صفحه حذف شود .

[HAMRAHSOFT.IR]

دوست خوب اگه هدف خذف ايكن متوني خود ايكون عوض كني ولي اگه مخواي صفه شما فول بشه بايد از دستور DoCmd.Maximize ولي باز اگه مخواي كادر دور فرم خذف بشه بازهم روش ديگه داره
حلا ببين كدوم را مي خواهي انجام بدي

[مهدی قربانی]

سلام
شما فرمي كه مي خواين تمام صفحه باز بشه در رخداد On Open يا On Load كدي كه دوستمون mrz اشاره كردن رو بنويسيد بعد خصوصيات Border Style رو به None و Modal رو به Yes تنظيم كنيد .

[F_ashigh]

خيلي خيلي ممنون
اين مشكل حل شد اما من ميخوام با Minimize كردن فرم كل access هم Minimize بشه.

[مهدی قربانی]

اين تكه كد رو در يك ماجول كپي كنيد :

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 MaximizeAccess()
Dim Maxit%
Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function


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


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

و بعد اين عبارت رو در رخداد On Open يا On Load فرم مورد نظر بنويسيد :

MinimizeAccess

[F_ashigh]

بسيار بسيار عالي
درسته كه نبايد اينجا تشكر كرد
اما نتونستم تشكر نكنم
باز هم تشكر