several group to show in subform

M

mace

I have a couple of tables one with contacts and a link to a table with grouptype, my contacts belongs to 6 different grouptypes. I have one form where I can select grouptype to send e-mail to and if I choose a group they nicely appear in the subform.

Problem is I want to select append /add maybe 1-3 more groups to that subform to send email to. Cant figure out how to do do this

Here is the code for the button that opens up the subform. tnumber is the grouptype selection that is filtered

Sub ToggleLink_Click(
On Error GoTo ToggleLink_Click_Er

If ChildFormIsOpen() The
FilterChildFor
Els
OpenChildFor
FilterChildFor
End I

ToggleLink_Click_Exit
Exit Su

ToggleLink_Click_Err
MsgBox Error
Resume ToggleLink_Click_Exi

End Su
Private Sub FilterChildForm(

If Me.NewRecord The
Forms![AGBG].DataEntry = Tru
Els
Forms![AGBG].Filter = "[tnumber] = " & Me![tnumber
Forms![AGBG].FilterOn = Tru
End I

End Su

thanks in advanc
ma
 
Top