Check out the save commands to suit your purpose
docmd.RunCommand acCmdSave
docmd.save acForm, "formname"
docmd.save acTable, "tablename"
docmd.save ect..
Edit:
ohhh this is when you're closing a form?
DoCmd.Close acForm, "Form Name", acSaveNo
or replace acSaveNo with acSaveYes