ms-access - Closeイベントでフォームクローズをキャンセルするにはどうすればよいですか？

Question

これは非常に簡単だと思いますが、見つかりません。アクセスフォームのクローズイベントで、フォームのクローズをキャンセルするにはどうすればよいですか？テーブル内のレコードをカウントするテストがあります。そのテーブルにレコードがある場合、ユーザーに閉じるか、戻って作業するかを尋ねたいと思います。では、クローズイベントをキャンセルするにはどうすればよいですか？

Answer 1

Unloadイベントを使用できます。

GlobalVar ButtonClicked

Private Sub Form_Open(Cancel As Integer)
     ButtonClicked = False
End Sub

Private ClickMe_Click(Cancel As Integer)
     ButtonClicked = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
     If Not ButtonClicked Then
         Cancel = True
     End if
End Sub  

データベースオブジェクトのイベントの順序

Answer 2

このコードを調べて試してみてください。うまくいきました。必要な変数名を選択した名前に置き換えます。フォームの form_unload イベントにコードを貼り付けます。警告!!!: この操作を実行すると、デザインおよびレイアウト ビューでフォームにアクセスするのが難しくなります。

    Private Sub Form_Unload(Cancel As Integer)
        userresponse = MsgBox("Are you sure you want close? All your work wouldn't be saved", vbYesNo, "Database Information")
        Select Case userresponse
        Case 6
            Cancel = False
            'this line opens another form in my own case
            DoCmd.OpenForm "EngMenu"  

        Case 7
            Cancel = True
            'this line keeps my own form open in my own case
            DoCmd.OpenForm "UpdateForm"


        Case Else:

            MsgBox "You are not allowed to perform this operation", vbInformation, "Database Information"
        End Select
    End Subenter code here