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


フォームを閉じる前に確認メッセージを表示させる方法:AccessTips051



フォームを閉じる時に、「閉じていいですか?」と云う確認メッセージを出したい場合がありますね。複数のユーザーでファイルを共有している場合なら尚更です。この方法には、二種類の考え方があります。

 フォーム上にコマンドボタン等を設けて クリック時イベント を利用する

コマンドボタンクリック時イベントに下記のプロシージャを記述します。

Private Sub Cmdコマンド_Click()

    Dim strmsg As String
    strmsg = "フォームを閉じますか?"

    If MsgBox(strmsg, vbOKCancel + vbCritical) = vbOK Then
        DoCmd.Close
    End If
    
End Sub
動作確認
  1. フォーム上の終了コマンドボタンをクリックします。

  1. メッセージボックスが表示されます。

 フォーム右上の 閉じるボタン を押した場合

一般的に、フォームを閉じる際のイベントには、フォームイベントである閉じる時イベントを用いますが、このイベントはキャンセルができません。よって、メッセージを表示させても意味がないです。

このような場合は、フォームイベントであるフォームの呼び込み解除時イベント を用います。このイベントは、フォームを閉じる時イベントより先に発生します。そして、 イベントをキャンセルすることができる長所があります。

フォームの呼び込み解除時イベントに下記のようなプロシージャを記述します。

Private Sub Form_Unload(Cancel As Integer)

    Dim strmsg As String
    strmsg = "フォームを閉じますか?"

    If MsgBox(strmsg, vbOKCancel + vbCritical) = vbCancel Then
        Cancel = True
    End If

End Sub

 2001/06/08

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


フォームを閉じる前に確認メッセージを表示させる方法:AccessTips051


 

-Microsoft Access Club-