フォームを終了する前にアクセスする必要のあるフィールド

Question

このフィールドは、BeforeUpdateコードを使用して特定のフィールドが入力されているかどうかを確認します。これらのフィールドは必須で、記入する必要があります。レコードを保存しないでください。他のフィールドがIDとスタッフフィールドなしで入力されている場合、メッセージボックスにポップアップが表示されます（必須フィールドなど）。次のように

Private Sub Form_BeforeUpdate(Cancel As Integer) 

If Nz([ID], "") = "" Then 
    MsgBox "The ID field is required.", vbExclamation, "Required Field" 
    Cancel = True 
End If 
If Nz([Staff], "") = "" Then 
    MsgBox "Staff field is required.", vbExclamation, "Required Field" 
    Cancel = True 
    Me.[Staff].SetFocus 
End Sub 

私は、「フォームを閉じる」ボタンがあります。このボタンをクリックすると

Private Sub CmdCloseForm_Click() 
    DoCmd.Close , "" 
End Sub 

は、私はフィールドが満たされていないという警告が出たが、その後、フォームが閉じます。私はYes/Noメッセージボックスに、フォームを閉じたいかどうかをユーザーに確認するように求めます。 BeforeUpdateサブフォームにYes/Noメッセージボックスを作成しました。ただし、サブCmdCloseFormは停止しません。

メッセージボックスを作成してフォームを終了するかどうかを確認する方法はありますか？例えば

：

If MsgBox("Would you like to close the form still? Changes won't be saved.", vbYesNo + vbQuestion, "Warning") = vbNo Then 
    Exit Sub 
End If 

私はCmdCloseForm関数に上記のMsgBoxを入れた場合、それは彼らがID /スタッフフィールドが欠落していることを知らせる前にユーザーに要求します。

Answer 1

連続したポップアップを表示したいので、自動更新を完全にキャンセルし、閉じるの検証をしてください。

検証に成功した場合は、ユーザーに通知しない場合はレコードを保存します。

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    Cancel = True 'cancel auto-update 
End Sub 

'Validate and either Save or Close 
Private Sub CmdCloseForm_Click() 
    If Me.Dirty Then 
     If IsFormValidated Then 
      DoCmd.RunCommand acCmdSaveRecord 
     Else 
      If MsgBox("Would you like to close the form still? Changes won't be saved.", vbYesNo + vbQuestion, "Warning") = vbNo Then Exit Sub 
     End If 
    End If 
    DoCmd.Close acForm, Me.Name, acSavePrompt 
End Sub 

'Validation 
Private Function IsFormValidated() As Boolean 

    IsFormValidated = True 'assume all is in order 

    If Nz([ID], "") = "" Then 
     MsgBox "The ID field is required.", vbExclamation, "Required Field" 
     IsFormValidated = False 
    End If 

    If Nz([Staff], "") = "" Then 
     MsgBox "Staff field is required.", vbExclamation, "Required Field" 
     Me.[Staff].SetFocus 
     IsFormValidated = False 
    End If 
End Function