تمام صفحه کردن فرم های ساخته شده در 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 و... نیز به ظاهر کار بسیار کمک خواهد کرد که در مطالب بعدی حتمأ درج خواهد گردید.