Save prompt is not working

I have the embeded macro onClick event to close the form and set save to
prompt. But it didn't prompt when it close the form.
I also have below event in my form and it still not prompting to save. What
I need to check? Thanks
Private Sub Form_BeforeUpdate(Cancel As Integer)
'get user confirmation of whether to save record or not
If MsgBox("Do you want to save the new BOM?", vbYesNo) = vbNo Then
Me.Undo
Cancel = True
End If
End Sub

If you use the line Cancel = True in the before update event, the form will
not close.
I suggest you put a close button with code something like this

Private Sub cmdClose_Click()
If Me.Dirty = True Then
If MsgBox("Do you want to save the new BOM?", vbYesNo) = vbNo Then
Me.Undo
Else
'other code here if needed to check data before save
End If
End If
DoCmd.Close acForm, Me.Name
End Sub


Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia


"Ashley" wrote in message
news
I have the embeded macro onClick event to close the form and set save to
prompt. But it didn't prompt when it close the form.
I also have below event in my form and it still not prompting to save.
What
I need to check? Thanks
Private Sub Form_BeforeUpdate(Cancel As Integer)
'get user confirmation of whether to save record or not
If MsgBox("Do you want to save the new BOM?", vbYesNo) = vbNo Then
Me.Undo
Cancel = True
End If
End Sub