Accessのフォームからの終了を確認するMsgBox

Question

私は契約の詳細といくつかの追加情報を入力するサブフォームのレコードフォームを1つ持っています。メインフォームには、閉じるためのコマンドボタンがあります。

閉じるときに2つのコントロール（メインフォームとサブフォームに1つ）をチェックする必要があります。いくつかの条件が満たされている場合は、はい/いいえMsgBoxが表示されます。ユーザが「はい」を押すと、フォームが閉じ、「いいえ」を押すと、フォームは開いたままになります。

Private Sub Form_Unload(Cancel As Integer) 
Dim Response As Integer 

Response = MsgBox("It looks like this contract is fixed. Would you like to edit the final price?", vbYesNo, "Database Information") 

If Me![fixed price] = 0 And Me![Fixation Orders Subform1].Form!Text38 = "Final Fixed Price" Then 
    Cancel = True And Response 
     If Response = vbYes Then 
      Cancel = True 
     Else 
      Cancel = False 
     End If 

Else 
    Cancel = False 
End If 

End Sub 

問題：

は、これまでのところ、私はこれを持って、私は「応答」を定義した前のMsgBoxが正しく登場しますが、フォームはとにかく閉じました。メッセージボックスがフォームがいずれかのクローズ私は「はい」または「いいえ」さらに

を押して何

関係なく表示されません

1. ：私は「場合」第二に、それを使用するように定義された後、この問題を解決した後、次のレコードに行くときにもこのコードを条件に当てはめてください。前もって感謝します。

Answer 1

は、私はこのようなものであるべきと考えている：

Private Sub Form_Unload(Cancel As Integer) 
If Me![fixed price] = 0 And Me![Fixation Orders Subform1].Form!Text38 = "Final Fixed Price" Then 
    If MsgBox("It looks like this contract is fixed. Would you like to edit the final price?", vbYesNo, "Database Information") = vbYes Then 
     Cancel = True 
    End If 
End If 
End Sub