T
TG
I am trying to execute multiple queries using one command button will
this work or should I be doing something else? Here is my code...
Private Sub cmdClearData_Click()
On Error GoTo Err_cmdClearData_Click
Dim stDocName As String
stDocName = "qry_Delete_T1_Clients,
qry_Delete_T9_Clinic_Attendance, qry_Delete_T9_Clients_Massage,
qry_Delete_T1_Students, qry_Delete_T1_STD_Program,
qry_Delete_T9_Clinic_Roster, qry_Delete_T9_Clinic_Sessions,
qry_Delete_T9_Session_Times"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_cmdClearData_Click:
Exit Sub
Err_cmdClearData_Click:
MsgBox Err.Description
Resume Exit_cmdClearData_Click
End Sub
this work or should I be doing something else? Here is my code...
Private Sub cmdClearData_Click()
On Error GoTo Err_cmdClearData_Click
Dim stDocName As String
stDocName = "qry_Delete_T1_Clients,
qry_Delete_T9_Clinic_Attendance, qry_Delete_T9_Clients_Massage,
qry_Delete_T1_Students, qry_Delete_T1_STD_Program,
qry_Delete_T9_Clinic_Roster, qry_Delete_T9_Clinic_Sessions,
qry_Delete_T9_Session_Times"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_cmdClearData_Click:
Exit Sub
Err_cmdClearData_Click:
MsgBox Err.Description
Resume Exit_cmdClearData_Click
End Sub