junction table record additions

[tca_VB]

I'm trying to add records to a junction table based on additional record added to one table via form in the many to many relationship.
Junction table = ClientAssociation
Main table = ClientMain (qry_NewClientNullAssociation identifies new record added)
Many to many table = Associations

I'm trying to do this upon clicking a command button that then opens ClientAssociation based on Client_ID. Then allows user to select mutliple associations (Asoc_ID) for Client_ID.

Here's what I have - I'm new at this...

Private Sub ClickAssociations_Click()
On Error GoTo Err_ClickAssociations_Click

'Open recordset with new client records
Dim db As Database
Set db = CurrentDb
Dim recClient As DAO.Recordset
Dim strClientID As String


Set recClient = db.OpenRecordset("qry_NewClientNullAssociation", dbOpenDynaset)
'Loop through new client ids
Do While Not recClient.EOF
strClientID = ClientMain.Client_ID

Dim recAsoc As DAO.Recordset
Dim strAsocID As String

Set recAsoc = db.OpenRecordset("Association", dbOpenDynaset)
'Loop through asoc ids
Do While Not recAsoc.EOF
strAsocID = Asoc_ID

'Open junction table and update records
Dim recClientAsoc As DAO.Recordset

Set recClientAsoc = db.OpenRecordset("ClientAssociation", dbOpenDynaset)
With recClientAsoc
.AddNew
!Client_ID = strClientID
!Asoc_ID = strAsocID
!CheckBox = False
.Update
End With

recAsoc.MoveNext
Loop

recClient.MoveNext
Loop

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Associations2"
stLinkCriteria = "[Client_ID]=" & Me![Client_ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ClickAssociations_Click:
Exit Sub

Err_ClickAssociations_Click:
MsgBox Err.Description
Resume Exit_ClickAssociations_Click

End Sub

 

[tca_VB]

used queries, but where to place?

I was able to use a select and append query to achieve the results I was trying to do within the code above.

The question I have now - where to put the macro to run the query. I want to update the junction table (which displays data in a subform) upon a new record addition to the main form.

Can this be put in On Data Change within the properties of the main form? Will the subform within the form be auto refreshed on the screen? Or is there a way to create a command button that runs the macro before displaying the subform - ie subform is hidden until command button is clicked (running append query) then displaying data?

Thanks for any input...
or offerings for a better way...