출처 : http://www.msaccess.co.kr/newpage/tech/free/collect/read.php?idx=3525&sub_id=35

사라진 메뉴를 보이고 안보이게 하는 샘플

Option Compare Database
'================================================================================
'이프로그램을 실행하기 이전에 반드시
'microsoft office 9.0 혹은 10.0 혹은 11.0....object 라이브러리를 체크하거나 있어야 합니다
'================================================================================
Private Sub Command82_Click()
'메뉴를 보이게 한다
On Error GoTo err1
DoCmd.ShowToolbar "Menu Bar", acToolbarYes
DoCmd.ShowToolbar "Print Preview", acToolbarYes
DoCmd.ShowToolbar "Database", acToolbarYes
DoCmd.ShowToolbar "Form View", acToolbarYes
DoCmd.ShowToolbar "Form Design", acToolbarYes
Call displayAll
DoCmd.Quit
err1:
     MsgBox "microsoft office 9.0 혹은 10.0 혹은 11.0....object 라이브러리를 체크하거나 있어야 합니다"
     Exit Sub
End Sub

Private Sub Command83_Click()
'메뉴를 안보이게 한다
On Error GoTo err2
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
Call hideAll
DoCmd.Quit
Exit Sub
err2:
     MsgBox "microsoft office 9.0 혹은 10.0 혹은 11.0....object 라이브러리를 체크하거나 있어야 합니다"
     Exit Sub
End Sub
Function hideAll()
'메뉴를 안보이게 한다
On Error GoTo err11
  'PURPOSE: REMOVES ALL TOOLBARS/MENUBARS/COMMANDBARS
Dim cbar As CommandBar

Application.CommandBars( "Menu Bar").Enabled = False
Application.CommandBars( "Menu Bar").Visible = False
Application.CommandBars( "Form View").Enabled = False
Application.CommandBars( "Form View").Visible = False
Exit Function
err11:
     MsgBox "microsoft office 9.0 혹은 10.0 혹은 11.0....Object 라이브러리를 체크하거나 있어야 합니다"
     Exit Function

End Function
Function displayAll()
'메뉴를 보이게 한다
On Error GoTo err21
  'PURPOSE: REMOVES ALL TOOLBARS/MENUBARS/COMMANDBARS
Dim cbar As CommandBar
Application.CommandBars( "Menu Bar").Enabled = True
Application.CommandBars( "Menu Bar").Visible = True
Application.CommandBars( "Form View").Enabled = True
Application.CommandBars( "Form View").Visible = True
Exit Function
err21:
     MsgBox "microsoft office 9.0 혹은 10.0 혹은 11.0....object 라이브러리를 체크하거나 있어야 합니다"
     Exit Function

End Function

Copyright By AccessVision



이 게시물을...
profile