Save prompt is not working


A

Ashley

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
 
Ad

Advertisements

J

Jeanette Cunningham

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top