Need a Save button that closes the form

[Diana Minks]

I've created a Save button that saves the data entered but
I also want it to close the form. Here's what I have with
my On Click event. This works but doesn't close the form.

HELP!!!!

Private Sub Save_Record_Click()

On Error GoTo Err_Save_Record_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu,
acSaveRecord, , acMenuVer70

Exit_Save_Record_Click:
Exit Sub

Err_Save_Record_Click:
MsgBox Err.Description
Resume Exit_Save_Record_Click

End Sub

[Bruce M. Thompson]

You need to add a line after the "save" command to close the form:

DoCmd.Close acForm, Me.Name

--
Bruce M. Thompson, Microsoft Access MVP
[email]bthmpson@mvps.org[/email] (See the Access FAQ at [url]http://www.mvps.org/access[/url])

>>No Email, Please. Keep all communications

within the newsgroups so that all might benefit.<<

"Diana Minks" <diana.minks@alltel.com> wrote in message
news:027d01c34703$081fed90$a101280a@phx.gbl...

> I've created a Save button that saves the data entered but
> I also want it to close the form. Here's what I have with
> my On Click event. This works but doesn't close the form.
>
> HELP!!!!
>
> Private Sub Save_Record_Click()
>
> On Error GoTo Err_Save_Record_Click
>
> DoCmd.DoMenuItem acFormBar, acRecordsMenu,
> acSaveRecord, , acMenuVer70
>
> Exit_Save_Record_Click:
> Exit Sub
>
> Err_Save_Record_Click:
> MsgBox Err.Description
> Resume Exit_Save_Record_Click
>
> End Sub
>