Can someone help me add an exception argument to my cancel as integer sub?

[xwnoob]

So i have this code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
'Ensure that users do not accidentally save records
If MsgBox("Do you want to save the updated records?", vbOKCancel, "Save?") = vbCancel Then
Me.Undo
End If
End If
End Sub

How do i add a code inside that creates an exception for a button that goes to a new record? I want to add the exception for my add new record button but i dont know which function/command to use

 

[gemma-the-husky]

put this first

if me.newrecord then exit sub

then it will only ask the question for existing records.

 

[vbaInet]

The points I made in the following thread were not taken on board:

http://www.access-programmers.co.uk/forums/showthread.php?t=218328

You're still testing Me.Dirty in the Before Update event.

Basic code:

If Msgbox(...) = vbNo Then
     [COLOR=Red]Cancel = True[/COLOR]
End If

The red bit is what you were asking about.