DoCmd.RunCommand acCmdSaveRecord Forms!F01.Form.Requery Forms!F01.Form.Refresh DoCmd.RunCommand acCmdClose