Access2002　終了時の処理

またまた失礼いたします。 #4さんへの補足への質問です。 >でも、隣にあるLoginボタンも、終了しますか？の 画面（Yes+No）が出てきてしまうのです。 どういったコードを書かれたのかを知りたいのですが…。 >ところで、現在、アクセス内にある全部の終了ボタン及び右上×クリック時にCloseするとき、システム終了という全体モジュールに飛ぶようになっているのですがそこで操作できないのでしょうか？ Private Sub End_Click() On Error Resume Next DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = Terminate End Sub Public Function Terminate() As Boolean On Error Resume Next Terminate = False If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, "終了確認") = vbNo Then Terminate = True End If End Function 終了ボタンからはフォームの終了だけで良いです。 フォームの終了がForm_Unloadを勝手に呼び出すので 必要ないですね。Form_Unloadだけで呼び出してください。 ではでは。

#１です。 #4さんとほとんど同じなのですが、 Private Sub End_Click() On Error Resume Next　'←(1)エラー無視 DoCmd.Close acForm, Me.Name　'←(2)フォームを閉じる End Sub でやってみてください。(1)を記入する理由は(2)でForm_Unloadイベントが キャンセルした時にエラーが発生してしまうのを抑制する為です。 テスト済みなので大丈夫です。やってみてください。(^^)

＃２です。 ＃１さんへの回答に対する補足でのことなんですが、ボタン内の終了をどうやってるのかわからないんで、自信はありませんが。 実際、自分で質問者さんと同じ状態と思われるフォームを作ってみましたが。 終了ボタンのClickイベントのコードを、 Private Sub ボタン_Click() On Error GoTo Err_Trap DoCmd.Close acForm, Me.Name Exit Sub Err_Trap: Resume Next End Sub としてみてください。 おそらくうまくいくと思います。

> Private Sub Form_Close() 閉じる時イベントには、Cancel 引数がないので、読み込み解除時イベントを 使ってみてください。

はじめまして。 上記コードを、Closeイベントでなくて、UnLoadイベント（読み込み解除時）の中にコードを記述し、 さらにコードを、 Cancel=False から Cancel=True に変更してください。

こんにちわ。 きっと↓こうですね。 UnloadイベントでCacelが使用できます。 あとイベントを中止したい時はCacelはTrueですね。 Private Sub Form_Unload(Cancel As Integer) If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion, "終了確認") = vbNo Then Cancel = True End If End Sub ではでは。