مخفی کردن منوهای اکسس

بسم الله الرحمن الرحیم

سلام

 

امروز ولادت اول امام شیعیان، حضرت علی بن ابیطالب و روز پدر هست که از همینجا به تمامی عاشقان حضرتش تبریک و تهنیت عرض میکنم.

در این پست قصد دارم تا آموزش مخفی کردن منوهای اکسس یا آموزش مخفی کردن ریبون اکسس رو آموزش بدم پس ادامه آموزش رو با هم باشیم ...

مخفی کردن منوهای اکسس

روش اول

در رویداد Onload فرم اولیه که میتونه فرم اسپلش یا فرم لاگین باشید کد زیر را بنویسید:

DoCmd.ShowToolbar “ribbon”, acToolbarNo

 

البته مشخصه که اگه بخواید که منوها رو یا بهتر بگم ریبون رو دوباره نمایش بدین کافیه کد بالا رو به شکل زیر تغییر بدین :

DoCmd.ShowToolbar “ribbon”, acToolbarYes

 

 

روش دوم

با زدن کلیدهای Alt + F11 به محیط VBA وارد بشین و در قسمت خالی سمت چپ (قسمت ماژول‌ها) کلید راست می کنید و گزینه Insert Module رو انتخاب می‌کنید که یک صفحه خالی باز میشه که کد زیر رو داخلش قرار میدید.

Option Compare Database
Option Explicit
'Published by: http://Access-Training.blog.ir/

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 فرم مد نظرتون که میتونه فرم اولتون باشه، یکی از حالت‌های موجود تو ماژول رو به روش‌های زیر فراخوانی کنید:

 

1. همه پنجره‌ها و حتی خود نرم افزار اکسس را مخفی میکند.

Call fSetAccessWindow(0)

نکته: جالب نیست بعلاوه که برای بسته شدن اکسس هم باید کدنویسی کنید.

---

 

2. همه پنجره ها رو مثل اول نمایش میده.

Call fSetAccessWindow(1)

نکته: یعنی اگه با کد بالا مخفی کرده بودید با این کد می تونید به حالت عادی برگردید.

---

 

3. منوهای اکسس رو مخفی میکنه

Call fSetAccessWindow(2)

نکته: صرفا ریبون‌های اکسس رو مخفی میکنه.

 

منتظر نکته نظرات شما هستیم