1

最近はあまり検索していませんが、過去にVBAコードでリボンを最小化する方法を見つけるために高低を検索しました。私にとって、ほとんどのユーザーはAccessのリボンを使用していません。画面のスペースを取り戻すことができれば、とてもうれしく思います。

私はそれを最小限に抑えるように彼らを訓練することができることを知っていますが...まあ...彼らはユーザーであり、コンピューターオタクではありません。:-)

4

1 に答える 1

2

データベースを開いたときに特定のフォームを表示するように設定されている場合は、次のコードをフォームのopenイベントに入れることができます。

Private Sub Form_Open(Cancel As Integer)
    Call HideRibbon
End Sub

HideRibbonサブは次のとおりです。

Public Sub HideRibbon()
    'Access versions before 2007 did not have ribbon '
    'ignore error: '
    '2094, <App Name> can't find the toolbar 'Ribbon.'
    On Error Resume Next
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    On Error GoTo 0
End Sub

編集：HideRibbonサブを変更して、On ErrorResumeNextを削除しました。これは、Access 2003および2007で必要なことを実行します。以前のすべてのAccessバージョン、または将来のAccessバージョンで SysCmd（acSysCmdAccessVer）によって返される文字列値についてはよくわかりません。

Public Sub HideRibbon()
    'Access versions before 2007 did not have ribbon '
    If Val(SysCmd(acSysCmdAccessVer)) >= 12 Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End If
End Sub
于 2010-04-14T22:02:39.473 に答える