Putting variable (Looping) into Report

[Keredw]

Using Access 2003
I am looping through table values and creating a separate report for each name. The report is then emailed with a TO: and CC: address. That works fine. What I would like to do is put that value (someone's name) in the header of the report. The field containing the name can have up to 5 names in it. I use the LIKE filter to determine if the name is present. The only time the unique name exists is in the loop as it cycles through the existing names. How do I get that fleeting variable into the report as it is opened??
Code:-

Private Sub Loopy(rs As Recordset)
 
Dim name1, Name2, name3 As String
 
If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst 
    Do Until rs.EOF = True
     sContactName = rs!WorkCName
 
     ReportHeaderValueDesired = sContactName
 
     name3 = "[qryOpFile]![Resource Total] Like ""*" & sContactName & "*"""
    sContactName = rs!Email1
    Name1 = sContactName
    sContactName = rs!Email2
    Name2 = sContactName
    DoCmd.OpenReport "OpReport", acViewPreview, "", [qryOpFile]![Resource Total] & "Like sContactName, acNormal"
    DoCmd.OpenReport "OpReport", acViewPreview, "", name3, acNormal
    DoCmd.SendObject acReport, "OpReport", "SnapshotFormat(*.snp)", Name1, "Name2", "", sContactName, "", False, ""
    DoCmd.Close acReport, "OpReport"
    rs.MoveNext
    Loop
Else
    MsgBox "There are no records in the recordset."
End If
 
MsgBox "End of staff list"
 
rs.Close 'Close the recordset
Set rs = Nothing 'Clean up
End Sub

[Keredw]

Sorry. By the way, what are code tags and how do I use them??

[Keredw]

No Need to reply. I am reading your terms of use section. It has all the info I need.

[Keredw]

After much Googling and head scratching, I found the answer and as I suspected, it was VERY simple.

Add the OpenArgs to the end of the doCmd.OpenReport and then in the report, set the Control Source for the Text Box in the Report Header to be =[OpenArgs].

Name1 = sContactName
DoCmd.OpenReport "OpReport", acViewPreview, "", name3, acNormal, Name1
 

Can I acknowledge the source of the solution I found??
http://windowssecrets.com/forums/sho...Access-2003%29