Access Tips #064 Officeアシスタントで"メッセージボックス"(その１)

'Officeアシスタントを表示します
Assistant.Visible = True

'バルーンの表示内容を設定します
With Assistant.NewBalloon
  '電球のアイコンを表示
  .Icon = msoIconTip
  'メッセージのタイトル
  .Heading = "処理完了"
  'メッセージ
  .Text = "すべての計算処理が完了しました！"
  'OKボタンのみ使用(これは省略可能です)
  .Button = msoButtonSetOK
  'バルーンを表示します
  .Show
End With

'Officeアシスタントを非表示にします
Assistant.Visible = False


#064	Officeアシスタントで"メッセージボックス"(その１)	VBA
Officeアシスタントの「バルーン」を使ってメッセージボックスを表示する例です。 'Officeアシスタントを表示します Assistant.Visible = True 'バルーンの表示内容を設定します With Assistant.NewBalloon '電球のアイコンを表示 .Icon = msoIconTip 'メッセージのタイトル .Heading = "処理完了" 'メッセージ .Text = "すべての計算処理が完了しました！" 'OKボタンのみ使用(これは省略可能です) .Button = msoButtonSetOK 'バルーンを表示します .Show End With 'Officeアシスタントを非表示にします Assistant.Visible = False ※Officeアシスタントを使用する場合にはまず「Officeオブジェクトライブラリ」への参照設定を行う必要があります。上記のコードを実行する前にAccessのメニューの[ツール]-[参照設定]を選択して、[参照可能なライブラリファイル]の一覧の中の"Microsoft Office 8.0 Object Library"をチェックしてください。
\| Index \| Prev \| Next \|