Clear Text Boxes After Hitting The Save Button

[Eranka]

Hi



I have created a form with three textboxes and a button. When i hit the button the records get saved in the table. Now what i want to do is when i hit the saved button after displaying "Saved" Message i want to reset the text boxes to enter new values.

With my current form when enter a new data once previous data is saved, the previous data get update. i wont records the second data as a new record.

Please help.

[June7]

Move to new record row.

DoCmd.GoToRecord , , acNewRec

[Eranka]

Where to add the above code.

[pbaldy]

It would get added to my your existing button code. It presumes your form is bound to the table.

[SierraJuliet]

The following is an example where the button name is "btnSave" located on some form used to make entry(s) for the table(s) with a Click [Event Procedure]:

Private Sub btnSave_Click()

On Error GoTo btnSave_Click_Err

If Me.Dirty = False Then

Beep

MsgBox "No new information to save.", , ""

Else

DoCmd.RunCommand acCmdSaveRecord

DoCmd.GoToRecord , "", acNewRec

End If

btnSave_Click_Exit:

Exit Sub

btnSave_Click_Err:

Beep

MsgBox Err.Description, vbOKOnly, ""

Resume btnSave_Click_Exit

End Sub

Just in case you do not know how to add the code for the save button. To add the code open the form in Design View, click the button you are using to save records, open Property Sheet, go to Event tab, for On Click type or select [Event Procedure]. Then press and hold "Alt F11" or click the three little dots to the right of [Event Procedure], which will take you to where the button name_Click() is located. Simply copy and paste the aforementioned code (minus the following) between the Private Sub ...... and End Sub. Now save the newly added code in the VBA Editor and open your form in Form View to test it out.