Thanks,
But I basically have that now.
Here is a snip of my code...
Sub CSF()
dim
set
etc
Do Until rsP.EOF
P = rsP!PC
Do Until rsJ.EOF
J = rsJ!JC
R = rsP!REGION
FileName = R & " - " & P & " " & FN & ".xls" ' " for " &
R &
pass.J("Pick JC") = J
pass.P("Pick PC") = P
docmd.SetWarnings (WarningsOff)
================================================
Right here is where I pass the values and I see the query parm input box
shows.
================================================== =======
Send J
Send P
docmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
stDocName, FilePath & FileName, 0, J
loop
end
etc
docmd.SetWarnings (WarningsOn)
End Sub
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!