Hello All,

I have a button I need to use in a form to run the following Append Queries

Aerial Lift Append, CPR Append, Defensive Driving Append, Flagging Append,
Forklift Append, Ladder Handling Append, and Pole Climbing Append

I am using this for the Aerial Lift Append but want to be able to add the
others at the same time.

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

   Dim stDocName As String

   stDocName = "Aerial Lift Append"
   DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command13_Click:
   Exit Sub

Err_Command13_Click:
   MsgBox Err.Description
   Resume Exit_Command13_Click
   
End Sub

Will you help me PLEASE?!!!