one command buton, three things to accomplish - help

[gbb0330]

hi all
here is my situation, any help will be appreciated

i have a form with two command buttons on it, listing update and append
arc

Private Sub listing_update_Click()
On Error GoTo Err_listing_update_Click

Dim stDocName As String

stDocName = "Listing Update"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_listing_update_Click:
Exit Sub

Err_listing_update_Click:
MsgBox Err.Description
Resume Exit_listing_update_Click

End Sub

Private Sub append_arc_Click()
On Error GoTo Err_append_arc_Click

Dim stDocName As String

stDocName = "append arc"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_append_arc_Click:
Exit Sub

Err_append_arc_Click:
MsgBox Err.Description
Resume Exit_append_arc_Click

End Sub

my question is, how can i do the same thing with just one button.
there is also another thing i would like to acomplish, after i click
the button and run the queries i would like to change the values in a
few text boxes on the same form back to 0

[PC Datasheet]

Put the following code in the click event of a command button:
On Error GoTo ErrorHandler
DoCmd.OpenQuery "Listing Update", acNormal, acEdit
DoCmd.OpenQuery "append arc" , acNormal, acEdit
Me!MyTextbox1 = 0
Me!MyTextbox2 = 0
Me!MyTextbox3 = 0
....
....
ExitHere:
Exit Sub

ErrorHandler:
MsgBox Err.Description
Resume ExitHere

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com


"gbb0330" <gb*****@gmail.com> wrote in message
news:11*********************@f14g2000cwb.googlegro ups.com...

hi all
here is my situation, any help will be appreciated

i have a form with two command buttons on it, listing update and append
arc

Private Sub listing_update_Click()
On Error GoTo Err_listing_update_Click

Dim stDocName As String

stDocName = "Listing Update"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_listing_update_Click:
Exit Sub

Err_listing_update_Click:
MsgBox Err.Description
Resume Exit_listing_update_Click

End Sub

Private Sub append_arc_Click()
On Error GoTo Err_append_arc_Click

Dim stDocName As String

stDocName = "append arc"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_append_arc_Click:
Exit Sub

Err_append_arc_Click:
MsgBox Err.Description
Resume Exit_append_arc_Click

End Sub

my question is, how can i do the same thing with just one button.
there is also another thing i would like to acomplish, after i click
the button and run the queries i would like to change the values in a
few text boxes on the same form back to 0