Supress Prompts

[Sal Cifone]

Hey,

Is there any way to turn off the query parm prompts? I have a report
that must be printed for 53 different cities and the vba code loops
thru a table and passes the value to a select query. All works well
EXCEPT I see the Query Paramater dialogue box show. Any way to not
show this?
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Trevor Best]

On 04 Nov 2003 16:31:57 GMT in comp.databases. ms-access, Sal Cifone
<sa************ **@adp.com> wrote:

Hey,

Is there any way to turn off the query parm prompts? I have a report
that must be printed for 53 different cities and the vba code loops
thru a table and passes the value to a select query. All works well
EXCEPT I see the Query Paramater dialogue box show. Any way to not
show this?

The easiest way would be for you to have a form (e.g. MyDataEntryForm )
on the screen with the criteria in (e.g. MyTextBox) and reference that
in the query, e.g.

select * from MyQuery Where MyField = Forms!MyDataEnt ryForm!MyTextBo x

Or if you're doing what I think you're doing, perhaps your query
should look something like:

select * from MyQuery Where City = GetCity()

And in the module that runs your report:

<--- (air code)
Option Explicit
Dim mstrCity As String
Public Function GetCity() As String
GetCity = mstrCity
End Function
Function RunReports
Dim rs as Recordset
(open up rs, etc)
Do until rs.Eof
mstrCity = rs!City
DoCmd.OpenRepor t ....
rs.MoveNext
Loop
(close up rs, etc)
End Function
--->

--
A)bort, R)etry, I)nfluence with large hammer.

[Sal Cifone]

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.SetWarnin gs (WarningsOff)

=============== =============== =============== ===

Right here is where I pass the values and I see the query parm input box
shows.

=============== =============== =============== ============
Send J
Send P

docmd.TransferS preadsheet acExport, acSpreadsheetTy peExcel9,
stDocName, FilePath & FileName, 0, J
loop
end
etc

docmd.SetWarnin gs (WarningsOn)
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!