Multiple Filters

[racer25]

Hi

I have a Global variable strVndCode which filters my summary report.

What I would like to be able to do is on the line "strVndCode = "DUB TEAM 1"" expand this to include other Departments.

I tried strVndCode = "DUB TEAM 1" OR strVndCode = "DUB TEAM 2" which did not work.

My summary report Data Source is SELECT Query.* FROM Query WHERE ((([Query].[Department Abbr Name])=getVndCode()));

Private Sub Command2_Click()

Dim I As String
Dim R As String
Dim sFileName As String
Dim Dept As String

I = "April 2008"
R = "Summary Report"

Dept = "Team124"
strVndCode = "DUB TEAM 1"
sFileName = "G:\Income Reports\End of Month Reports\" & I & "\" & Dept & R & ".pdf"
    
    DoCmd.OutputTo acOutputReport, R, acFormatPDF, sFileName

End Sub

Looking at the code you can probably appreciate that I am new at this and I thank you in advance for your assistance.

Cheers,

R