Hello All,
I have three append queries that I wish to run in succession when a user clicks a single command button on a form. So far I have been able to run my first append query through the Command Button Wizard. The current VBA coding is as follows.
"On Click"
Private Sub AppendQuerySiteComponents_Click()
On Error GoTo Err_AppendQuerySiteComponents_Click
Dim stDocName As String
stDocName = "AppendSitecomponents"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_AppendQuerySiteComponents_Click:
Exit Sub
Err_AppendQuerySiteComponents_Click:
MsgBox Err.Description
Resume Exit_AppendQuerySiteComponents_Click
End Sub
I would like to add a DoCmd forqueries "AppendProjectName" and " AppendSiteComponents.
My VBA coding is at a novice level. How would I insert these DoCmd operations and how would the VBA code work. Any other work around for running these three queries on a single command or On Close will be appreciated.
Thanks
-Higel
I have three append queries that I wish to run in succession when a user clicks a single command button on a form. So far I have been able to run my first append query through the Command Button Wizard. The current VBA coding is as follows.
"On Click"
Private Sub AppendQuerySiteComponents_Click()
On Error GoTo Err_AppendQuerySiteComponents_Click
Dim stDocName As String
stDocName = "AppendSitecomponents"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_AppendQuerySiteComponents_Click:
Exit Sub
Err_AppendQuerySiteComponents_Click:
MsgBox Err.Description
Resume Exit_AppendQuerySiteComponents_Click
End Sub
I would like to add a DoCmd forqueries "AppendProjectName" and " AppendSiteComponents.
My VBA coding is at a novice level. How would I insert these DoCmd operations and how would the VBA code work. Any other work around for running these three queries on a single command or On Close will be appreciated.
Thanks
-Higel