Option Compare Database
Option Explicit

'Access97では次の構文が許されましたが、Access2000ではランタイムエラー(2091:不正な名前です)になります。
'   Application.GetOption("ﾂｰﾙﾊﾞｰの表示")=true
'   Application.GetOption("ｽﾃｰﾀｽ ﾊﾞｰの表示") = True
'ちなみにAccess97/2000とも次の名前はランタイムエラー(2091:不正な名前です)になります。
'   "Show Tool Bar"   "Show ToolBar"   "Show Tools Bar"   "Show ToolsBar"

Const SBar = "Show Status Bar", MBar = "Menu Bar"

Function MenuBarCtrl(Optional m表示 As Boolean, Optional s表示 As Boolean)
    With Application
        If Not IsMissing(s表示) Then
            If .GetOption(SBar) = Not s表示 Then .SetOption SBar, s表示
        End If
    End With
    If Not IsMissing(m表示) Then
        If CommandBars(MBar).Enabled = Not m表示 Then CommandBars(MBar).Enabled = m表示
    End If
End Function