[Access vba] フォーム　リボンとナビゲーションウインドウを非表示。: あした

2020年01月15日

[Access vba] フォーム　リボンとナビゲーションウインドウを非表示。

リボンとナビゲーションウインドウを非表示します。


Private Sub Form_Load()

    On Error GoTo ErrProc

    'リボンを非表示
    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    'ナビゲーションウインドウを非表示
    DoCmd.NavigateTo "acNavigationCategoryObjectType", ""
    DoCmd.RunCommand acCmdWindowHide
    
Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub

ユーザーが使用するフォームの場合などは非表示にしています。

【このカテゴリーの最新記事】

posted by naka at 08:10 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/9559379
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック

あした

広告

2020年01月15日

[Access vba] フォーム リボンとナビゲーションウインドウを非表示。

[Access vba] フォーム　リボンとナビゲーションウインドウを非表示。