閉じる

不要なツールバーを非表示にする




'------------------------------------------------------------

' ツールバーの非表示

'------------------------------------------------------------

Function Toolbar_Visible_False()

On Error GoTo Toolbar_Visible_False_Err



    ' 不要なツールバーを非表示にする

    DoCmd.ShowToolbar "データベース", acToolbarNo

    DoCmd.ShowToolbar "リレーションシップ", acToolbarNo

    DoCmd.ShowToolbar "テーブル デザイン", acToolbarNo

    DoCmd.ShowToolbar "テーブル : データシート", acToolbarNo

    DoCmd.ShowToolbar "クエリ デザイン", acToolbarNo

    DoCmd.ShowToolbar "クエリ データシート", acToolbarNo

    DoCmd.ShowToolbar "フォーム デザイン", acToolbarNo

    DoCmd.ShowToolbar "フォーム ビュー", acToolbarNo

    DoCmd.ShowToolbar "フィルタ/並べ替え", acToolbarNo

    DoCmd.ShowToolbar "レポート デザイン", acToolbarNo

    DoCmd.ShowToolbar "印刷プレビュー", acToolbarNo

    DoCmd.ShowToolbar "ツールボックス", acToolbarNo

    DoCmd.ShowToolbar "書式設定 (フォーム/レポート デザイン)", acToolbarNo

    DoCmd.ShowToolbar "書式設定 (データシート)", acToolbarNo

    DoCmd.ShowToolbar "マクロ デザイン", acToolbarNo

    DoCmd.ShowToolbar "ユーティリティ 1", acToolbarNo

    DoCmd.ShowToolbar "ユーティリティ 2", acToolbarNo

    DoCmd.ShowToolbar "Web", acToolbarNo





Toolbar_Visible_False_Exit:

    Exit Function



Toolbar_Visible_False_Err:

    MsgBox ("Toolbar_Visible_No:" & Err.Number & " " & Err.Description)

    Resume Toolbar_Visible_False_Exit



End Function