How to pass, via VBA, a value like [parameter] of a query?

N

Nicola M

Hi all, Access 2003.

I have a form with some cmdButtons that usually open some reports in
preview mode. These reports are based on some static query. SOme query,
in the Criteria row, has a parameter request [Write parameter].
I would open the same reports from two different locations: a simple
cmdButton in a kind of MasterPanel (I need only a date from my user) and
a button on a specific detail form that already open the report with the
current record. Well, obviously, when I open the report from the detail
form I get also the input request [Write Parameter].
Is there a VBA way to pass a value to this input request?
This let me to avoid to create another query without the [write
Parameter] to use only with the cmdButton in the detail form.

Thanks for your time, any advice, tip or suggestion are welcome.
Nicola M
 
D

DStegon via AccessMonster.com

IF i undertand correctly... here you go:

Dim prm As ADODB.Parameter
Dim cmd As New ADODB.Command

cmd.CommandText = "qry_Search_Main"
Set prm = cmd.CreateParameter("SalesOrderID", adInteger, , , ID)
cmd.Parameters.Append prm
cmd.Execute


'put your query in the commandtext line
'put you "Parameter" in - Fieldname, type and blah blah blah

and your off to the races.


Nicola said:
Hi all, Access 2003.

I have a form with some cmdButtons that usually open some reports in
preview mode. These reports are based on some static query. SOme query,
in the Criteria row, has a parameter request [Write parameter].
I would open the same reports from two different locations: a simple
cmdButton in a kind of MasterPanel (I need only a date from my user) and
a button on a specific detail form that already open the report with the
current record. Well, obviously, when I open the report from the detail
form I get also the input request [Write Parameter].
Is there a VBA way to pass a value to this input request?
This let me to avoid to create another query without the [write
Parameter] to use only with the cmdButton in the detail form.

Thanks for your time, any advice, tip or suggestion are welcome.
Nicola M
 
A

Albert D. Kallal

Use the "where" clause, and make the reports sql *without* any
parameters..and you not need to change the params.

So, you can build a un-bound form (a un-bound form is a form that is NOT
attached to a table - these forms are typically designed for user interface
face stuff like prompts, print buttons etc).

The following screen shots are all un-bound forms, and they simply prompt
the user for information.

http://www.members.shaw.ca/AlbertKallal/ridesrpt/ridesrpt.html

The above should give you some ideas

So, the solution use now is simply to take the values from the form, and
build your own where clause in code. That way, you simply design the reports
(or forms), and attached them to the query. And, NO FORMS conditions are
placed in the query.

To "send" the conditions to the report (or form), you simply use the "where"
clause. This is exactly why ms-access has this feature...and it solves a
zillion problems...and will reduce your development costs by a substantial
amount.

The code to make those above screens work and launch the report with the
selected restrictions when you hit the "print" button is easy:


dim strWhere as string

select sales rep combo

if isnull(cboSalesRep) = false then

strWhere = "SalesRep = " & cboSalesRep & ""

end if

select what City for the report

if isnull(cboCity) = false then
if strWhere <> "" then
strWhere = strWhere " and "
endif
strWhere = strWhere & "City = " & cobCity & ""
end if

Note how the 2nd combo test is setup. You can add as "many" more conditions
you want. Lets say we have a check box to only include Special Customers. We
can add to our very nice prompt screen a check box to

[x] Show Only Special customers

The code we add would be:

if chkSpeicalOnly = True then
if strWhere <> "" then
strWhere = strWhere " and "
endif
strWhere = strWhere & "SpecialCust = true"
endif

For sure, each combo and control we add to the nice report screen takes a
bit of code, but no more messy then the query builder..and this way, each
query is nice and clean, and free of a bunch of HIGHLY un-maintainable
forms! expressions.

Further, it means you can re-use the same query for different reports, and
have no worries about some form that is supposed to be open. So, a tiny bit
more code eliminates the messy query problem.. For me, this is very worth
while trade.

For a date range, we could put two calendar controls on the screen. The code
could be:


dim strWhere as string
dim strStartDate as string
dim strEndDate as string


strStartDtae = "#" & format(me.StartDateContorl,"mm/dd/yyyy") & "#"
strEndDate = "#" & format(me.EndDateContorl,"mm/dd/yyyy") & "#"

strWhere = "InvoiceDate is between " & strStartDate & " and " & strEndDate

docmd.openReport "InvoiceReport",acViewPreview,,strWhere
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top