M
mon
Hi Helpers
I would like to add to the code below so that instead of
saving and "do nothing" a new record is added.
Thanks again and again and again mon
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Data has changed."
strMsg = strMsg & "@Do you wish to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard
changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save
Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub
I would like to add to the code below so that instead of
saving and "do nothing" a new record is added.
Thanks again and again and again mon
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Data has changed."
strMsg = strMsg & "@Do you wish to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard
changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save
Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub