مخفی کردن منوهای اکسس
روش اول :
در رویداد Onload فرم ال سایتتون که میتونه فرم اسپلش یا فرم لاگین باشید کد زیر را بنویسید:
DoCmd.ShowToolbar “ribbon”, acToolbarNo
البته مشخصه که اگه بخواید که منوها رو یا بهتر بگم ریبون رو دوباره ببنید کافیه کد بالا رو به شکل زیر تغییر بدین :
DoCmd.ShowToolbar “ribbon”, acToolbarYes
روش دوم استفاده از ماژول:
با زدن کلیدهای Alt F11 به محیط VBA می رید و در قسمت خالی سمت چپ ( قسمت ماژولها ) کلید راست می کنید و گزینه Insert Module رو انتخاب می کنید که یک صفحه خالی باز میشه که کد زیر رو داخلش قرار میدید.
Option Compare Database Option Explicit
Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib “User32” _ Alias “ShowWindow” (ByVal hWnd As Long, _ ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm
If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox “Cannot minimize Access with ” _ & (loForm.Caption ” “) _ & “form on screen” ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then MsgBox “Cannot hide Access with ” _ & (loForm.Caption ” “) _ & “form on screen” Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function
خب حالا کافیه در رویداد OnOpen یا Onload فرم مد نظرتون که میتونه فم اولتون باشه یکی از حالتهای موجود تو ماژول رو فراخوانی می کنید با کد زیر:
Call fSetAccessWindow(0) —>همه پنجره ها و حتی خود نرم افزار اکسس را نمایش می دهد – که جالب نیست و برای بسته شدن اکسس هم باید کدنویسی کنید
Call fSetAccessWindow(1)—->همه پنجره ها رو مثل اول نمایش میده – یعنی اگه با کد بالا مخفی کرده بودید با این کد می تونید به حالت جدید برگردونید
Call fSetAccessWindow(2)—-> منوهای اکسس رو مخفی میکنه
بنده به شخصه از روش اول استفاده می کنم ، که البته با ریبونهای اختصاصی میشه اون رو جذاب تر کرد . منبع: Officebaz.ir |