スキルアップ・問題解決なら、モーグにおまかせ！

Access 2000には、プログラム可能なツールバーおよびメニューバーから構成されるコマンドバーが含まれています。
これらのコマンドバーを使って、アプリケーション用のカスタム ツールバーとカスタムメニューを作成することができます。

以下のコードは、「MyCommandBar1」といったコマンドバーにボタンを１つ用意し、クリックされると、メッセージボックスを表示するマクロです。また、このマクロを実行する前に、参照設定にて「Microsoft Office 9.0 Object Library」を組み込んでおく必要があります。

●サンプル●
'----- コマンドバーの作成 -----
Sub CreateCommandBar()
    Dim cBarName        As String
    Dim objCmdBar       As CommandBar
    Dim objCmdBarCtl    As CommandBarControl

    cBarName = "MyCommandBar1"

    ' コマンドバーを追加する
    Set objCmdBar = Application.CommandBars.Add(cBarName)

    ' 追加したコマンドバーにボタンを追加する
    Set objCmdBarCtl = objCmdBar.Controls.Add(msoControlButton)
    objCmdBarCtl.Caption = "Button1"
    objCmdBarCtl.Style = msoButtonCaption
    objCmdBar.Visible = True

    ' ボタンのクリックイベントに処理を割り当てる
    CommandBars(cBarName).Controls(objCmdBarCtl.Caption).OnAction = _
                                                   "=MsgBox(""Wow!"")"

End Sub