How to save records of a form and a clear form to appear. The following code comes from the site http www. This has a form set up to do just what you are trying to do but only has the following objects on it. Quit a quit button. FullReportView.png' alt='Microsoft Access Clear Form Fields' title='Microsoft Access Clear Form Fields' />Save a save button. First. Name a text box for the first name. Last. Name a text box for the last name. Proper. Save a text box to keep the saved value you could use a boolean variable if you choose. You could cut and paste this code into your form module and change the text boxes and object names to suit. It will stop users from entering blank fields etc. Microsoft Access Clear Form Fields' title='Microsoft Access Clear Form Fields' />Perhaps you could try setting it up in a test table and form before applying it to your real database. Private Sub b. QuitClick. On Error Go. To Errb. QuitClick. Me. tb. Hidden. Set. Focus. Im loosing my hair over this one in Access 2010 I have created a Sizable form with a headerdetailfooter. I open it and it is full screen. Not Cool, so. Free help and tutorials for Microsoft Access. Tips for beginners and database developers. Downloadable examples and utilities. Flaws, bugs, traps, code, design. When you need to bring your Access data into a Word form, a little VBA can expedite the task. Susan Harkins walks through an example to demonstrate the process. Prompts the user to save the current record if it needs to be saved. If Me. Dirty Then. Msg. Box Please Save This Record vb. Cr. Lf vb. Lf You can not close this form until you either Save the changes made to this record or Undo your changes., vb. Exclamation, Save Required. Do. Cmd. Open. Form f. Main. Menu. Do. Cmd. Close ac. Form, Me. Name. End If. Exitb. QuitClick. Errb. QuitClick. Msg. Box Err. Number, Err. Description. Resume Exitb. QuitClick. Private Sub b. SaveClick. On Error Go. To Errb. SaveClick. Me. tb. Hidden. Set. Focus. If Is. Nulltb. First. Name Or Is. Nulltb. Last. Name Then. Msg. Box All required fields must be completed before you can save a record., vb. Critical, Invalid Save. Select Case Msg. BoxDo you want to save your changes to the current record vb. Cr. Lf vb. Lf Yes. Saves Changes vb. Cr. Lf No. Does NOT Save Changes vb. Cr. Lf Cancel. Reset Undo Changes vb. Cr. Lf, vb. Yes. No. Cancel vb. Question, Save Current Record. Case vb. Yes Save the changes. Me. tb. Proper. Save. Value Yes. Do. Cmd. Run. Command ac. Cmd. Save. Record. Case vb. No Do not save or undo. Case vb. Cancel Undo the changes. Do. Cmd. Run. Command ac. Cmd. Undo. Me. tb. Proper. Save. Value No. Case Else Default case to trap any errors. Exitb. SaveClick. Errb. SaveClick. If Err 2. Then The command or action Undo is not available now. Msg. Box Err. Number, Err. Description. Resume Exitb. SaveClick. Private Sub b. UndoClick. On Error Go. To Errb. UndoClick. Me. tb. Hidden. Set. Focus. Resets the record if it has been modified by the user. If Me. Dirty Then. Do. Cmd. Run. Command ac. Cmd. Undo. Me. tb. Adobe Acrobat Reader Sdk Free Download. Proper. Save. Value No. Msg. Box There were no modifications made to the current record., vb. Information, Invalid Undo. Exitb. UndoClick. Errb. UndoClick. Msg. Box Err. Number, Err. Description. Resume Exitb. UndoClick. Private Sub FormBefore. UpdateCancel As Integer. On Error Go. To ErrFormBefore. Update. Me. tb. Hidden. Set. Focus. If Me. Proper. Save. Value No Then. Msg. Box Please Save This Record vb. Cr. Lf vb. Lf You can not advance to another record until you either Save the changes made to this record or Undo your changes., vb. Exclamation, Save Required. Do. Cmd. Cancel. Event. ExitFormBefore. Update. ErrFormBefore. Update. If Err 3. Then Update or Cancel. Update without Add. New or Edit. Msg. Box Err. Number, Err. Description. Resume ExitFormBefore. Update. Private Sub FormCurrent. On Error Go. To ErrFormCurrent. Me. tb. Proper. Save. Value No. ExitFormCurrent. ErrFormCurrent. Msg. Box Err. Number, Err. Description. Resume ExitFormCurrent.