Save or Discard Record

[ianbar]

Hi,

Could someone show me some example code I could use to prompt the user to save or disgard the information entered into the form, when they exit the form?

Thanks.

 

[welshone]

something like this ?

Dim Msg, Style, Title, Response, MyString

Msg = " Are you sure you want to Save this Record ?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Save Record ?"
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then
MyString = "Yes"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "The Record has been saved to the database", vbOKOnly, "Record Saved"


Else
MyString = "No"
End If

 

[ianbar]

Thank you for your reply. Does that could exit the form without saving the data?

 

[welshone]

yes, you close do


Else
My String = "No"
docmd.close
end if

 

[ianbar]

I'll give it a whirl. Thanks.