تمام صفحه کردن فرم های ساخته شده در Access و پنهان نمودن نرم افزار Access

احتمالأ برای شما پیش آمده باشد زمانی که برنامه ای با نرم افزار Access می سازید، بخواهید فرم اصلی بصورت تمام صفحه باشد و از نرم افزار Access خبری نباشد. برای این کار مراحل زیر را دنبال کنید:

1- در روال form_open فرم مربوطه ، جهت پنهان نمودن Menu های Access و ... کد زیر را درج نمائید:

Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
On Error GoTo 1

            DoCmd.ShowToolbar "ribbon", acToolbarNo
            CommandBars.ActiveMenuBar.Enabled = False

            CurrentDb.Properties("ShowDocumentTabs").Value = False
            Application.SetOption "Show Status Bar", False

            'select the navigation pange
            Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
            'hide the selected object
            Call DoCmd.RunCommand(acCmdWindowHide)
            DoCmd.Maximize

1: End Sub

با روال بالا، زمانی که فرم مربوطه باز می شود بصورت کامل خواهد بود، البته پس از یکبار اجرا باید برنامه را کامل ببندید و دوباره باز کنید تا حذف Tab ها هم عمل کند. در ضمن خواص Pop up و modal فرم هم باید روی No تنظیم شده باشند.

پس از بستن فرم، باید همه چیز سر جای خودش برگردد وگرنه شما در برنامه Access خود menu و ... را نخواهید دید. برای اینکار دستورات قسمت 2 را بنویسید

2- در روال form_close فرم مربوطه کد زیر را درج نمائید :

Private Sub Form_Close()
DoCmd.SetWarnings False
On Error GoTo 1

            DoCmd.ShowToolbar "ribbon", acToolbarYes
            CommandBars.ActiveMenuBar.Enabled = True

            CurrentDb.Properties("ShowDocumentTabs").Value = True
            Application.SetOption "Show Status Bar", True

            Call DoCmd.SelectObject(acTable, , True)
1: End Sub

امیدوارم مطلب فوق در بهبود برنامه نویسی شما مؤثر بوده باشد. البته تغییر آیکون Access و ... نیز به ظاهر کار بسیار کمک خواهد کرد که در مطالب بعدی حتمأ درج خواهد گردید.