Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


太文字でメッセージボックスを表示する : Access裏技Tips



マクロでは、MsgBoxアクションの引数に指定するメッセージを、"@" 文字を使って太文字で表すことができます。 ここでは、VBAでも同様の機能を実現する技を紹介します。

メッセージを太文字であらわす

  1. Functionプロシージャ BoldMsgbox を作成します。
  2. Eval関数を用いて、Message関数全体を評価します。
  3. Magbox関数については、引数に指定するメッセージを、"@" 文字を使って3つの部分に分けます。
  4. 最初の部分では、メッセージが太文字であらわされ、2番目、3番目の文字は改行されて表示されます。
  5. マクロでは、MsgBoxアクションの引数に"@"を用いて記述するだけで実現できますが、VBA内ではEval関数内にMsgbox関数を用います。

VBE(Visual Basic Editor)画面を開く

  1. データベースウィンドウ上で右クリックします。
  2. ショートカットメニューの下部にある、「Visual Basic Editor」をクリックします。

今回のおすすめポイント

Access97の場合

メニューバーの挿入からプロシージャ、または標準モジュールをクリックします。Access2000からVBE画面を直接開くことができます。

Functionプロシージャ BoldMsgbox の作成

Functionプロシージャ BoldMsgbox を作成します。

Function BoldMsgbox()

    Beep ' --- A
    If 1 = Eval("MsgBox('終了します。@本当によろしいですか?" & _
				@By システム管理者',17)") Then ' --- B
        Application.Quit ' --- C
    End If

End Function
解説
  1. 警告音を鳴らします。
  2. Msgbox関数をEval関数で評価します。Msgbox関数の引数に指定するメッセージを"@"で3分割します。
  3. QuitメソッドでAccessを終了します。

メインフォームを作成する

  1. 非連結のメインフォームを作成します。
  2. コマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを作成します。

Private Sub Cmdコマンド_Click()
    
    Call BoldMsgbox ' --- A
    
End Sub
解説
  1. FunctionプロシージャBoldMsgboxを呼び出します。

動作確認

  1. デザインビューからフォームビューに切り替えます。

  1. コマンドボタンをクリックすると、メッセージボックスを表示します。

  1. [OK]をクリックすると、Accessが終了します。

関連ページ

ページの先頭へ 前ページへ戻る

 


太文字でメッセージボックスを表示する : Access裏技Tips


 

-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。