Data Confirmation Screen on Form

[chaddresnick]

I have a form and I have created an event procedure on the "before update" property of the form. My procedure is:



Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim pwd As String
pwd = InputBox("Is the information you entered correct?")
If pwd <> "yes" Then
MsgBox "Record Not Saved"
Me.Undo
Else
MsgBox "Record Saved"
End If
End Sub

the record is not saving under any situation. What do I have wrong?

[CJ_London]

you say the record is not saved under any situation - does that include closing the form or moving to another record?

The record will not be saved until the beforeupdate event has completed, so technically, your 'record saved' message is incorrect - at that point, it has not been saved

[chaddresnick]

So, how do I correct it?

[CJ_London]

put the record save message in the form afterupdate event

[chaddresnick]

Worked perfect! Thank you!