Confirm changes to only certain fields

[tylerg11]

I would like to prompt the user to confirm if changes are intended for certain field(s). I am using the BeforeUpdate property of the fields I want prompts on. But I can't get the following code to work. If Yes is clicked, it should save, which it does. If No is clicked, it should revert to the previous value. Here's my code:

    If MsgBox("Are you sure you want to update the First Name field?", vbYesNo) = vbYes Then
        DoCmd.Save
    Else
        DoCmd.CancelEvent
        Me.txtContactFirstName = Me.txtContactFirstName.OldValue
    End If

[June7]

Review http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

[Missinglinq]

First off, Access will not let you change the Value of a Control, in the Control's BeforeUpdate event, which you're attempting to do with this line:

Me.txtContactFirstName = Me.txtContactFirstName.OldValue

Attempting that will pop an Error.

Secondly, DoCmd.Save does not save a Record, it saves Design Changes to an Object, in this case, it would save any Design Changes to the Form.

Thirdly, the above is OK! You don't really need or want to save the Record, yet! You just don't want to revert back to the OldValue of the Control, unless the user clicks on No.

So, lets move code to the AfterUpdate event of the Control, and only deal with the user clicking on No. See if this meets your requirement:

Private Sub ContactFirstName_AfterUpdate()
 If MsgBox("Are you sure you want to update the First Name field?", vbYesNo) = vbNo Then
   Me!ContactFirstName = Me.ContactFirstName.OldValue
 End If
End Sub

By the way, to force a Save of a Record, which is not needed, here, but which is needed, in some circumstances, you can either use

If Me.Dirty Then Me.Dirty = False

or

DoCmd.RunCommand acCmdSaveRecord

Linq ;0)>