save button notification

[Ravi Kumar]

form my save a button I have written the below to show a notification & then save code but it is not working , pls suggest me the correct code:
Private Sub cmdsave_click()
If Me.Dirty = True Then
If MsgBox("Do you want to save the changes for this record?", _
vbYesNo + vbQuestion, "Save Changes?") = vbNo Then
Me.Undo
End If
End If
End Sub

 

[Dreamweaver]

This is what I use in the employees example v4


DoCmd.RunCommand acCmdUndo


https://www.access-programmers.co.uk/forums/showthread.php?goto=newpost&t=306487

 

[theDBguy]

Hi. What does "is not working" mean? What is actually happening when you click the button?

 

[Ravi Kumar]

it is not saving any changes & not displaying new record..

 

[arnelgp]

Private Sub cmdsave_click()
   If Me.Dirty = True Then
      If MsgBox("Do you want to save the changes for this record?", _
         vbYesNo + vbQuestion, "Save Changes?") = vbNo Then
         Me.Undo
[COLOR="Purple"]      Else
         Me.Dirty = False
[/COLOR]      End If
   End If
End Sub

 

[Ravi Kumar]

dear sir ,
it is saving but it is showing new record after saving,

Private Sub cmdsaveandnew_Click()
If Me.Dirty = True Then
If MsgBox("Do you want to save the changes for this record?", _
vbYesNo + vbQuestion, "Save Changes?") = vbNo Then
Me.Undo
Else
Me.Dirty = False
End If
End If
End Sub

 

[Gasman]

PMFJI,

I expect you will be posting a lot of code in the future.

Please consider using the code tags # to show your code with decent indentation.

Just like arnelgp posted back to you.

That way you help others to help you.

dear sir ,
it is saving but it is showing new record after saving,

Private Sub cmdsaveandnew_Click()
If Me.Dirty = True Then
If MsgBox("Do you want to save the changes for this record?", _
vbYesNo + vbQuestion, "Save Changes?") = vbNo Then
Me.Undo
Else
Me.Dirty = False
End If
End If
End Sub

 

[missinglinq]

First, you complain that it is not displaying a new record...then you complain that it is displaying a new Record...which do you want?

If you want it to move to a new Record...you need to tell Access to go to a new Record:

DoCmd.GoToRecord , , acNewRec

Linq ;0)>