<br><font size=2 face="sans-serif">Wow, this seems FAR easier than what I described. I'm gonna check into this further!</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td>
<td><font size=1 face="sans-serif"><b>"Arthur Fuller" <artful@rogers.com></b></font>
<br><font size=1 face="sans-serif">Sent by: accessd-bounces@databaseadvisors.com</font>
<p><font size=1 face="sans-serif">09/09/2003 02:55 PM</font>
<br><font size=1 face="sans-serif">Please respond to Access Developers discussion and problem solving </font>
<br>
<td><font size=1 face="Arial"> </font>
<br><font size=1 face="sans-serif"> To: "Access Developers discussion and problem solving" <accessd@databaseadvisors.com></font>
<br><font size=1 face="sans-serif"> cc: </font>
<br><font size=1 face="sans-serif"> Subject: RE: [AccessD] Access 2000 Pass-Through Query Reports</font></table>
<br>
<br>
<br><font size=2 color=blue face="Arial">My fave way to do this is to use a static function that sets/gets the parm of interest. (God I must sound like a very squeaky wheel on this subject :-)</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 color=blue face="Arial">Assuming a get/set func that sets and gets a parm of interest, your code reduces to:</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 color=blue face="Arial">EXEC "mySproc " & MyStaticValue()</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 color=blue face="Arial">Here is the template for my static funcs:</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 color=blue face="Arial">Static Function CurrentX(Optional lngNew As Long) As Long<br>
'Copy this template each time you need a new set/get function<br>
'Then Replace "X" with the name of your object, i.e.,"Employee"<br>
'Replace all in current proc and you're done.</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 color=blue face="Arial"> Dim lngCurrent As Long<br>
If lngNew <> 0 Then lngCurrent = lngNew<br>
CurrentX = lngCurrent<br>
#If conDebug = 1 Then<br>
Debug.Print "Current X: ", CurrentX<br>
#End If<br>
End Function</font>
<br><font size=2 face="Tahoma">-----Original Message-----<b><br>
From:</b> accessd-bounces@databaseadvisors.com [mailto:accessd-bounces@databaseadvisors.com]<b>On Behalf Of </b>Brett Barabash<b><br>
Sent:</b> Tuesday, September 09, 2003 8:52 AM<b><br>
To:</b> 'accessd@databaseadvisors.com'<b><br>
Subject:</b> [AccessD] Access 2000 Pass-Through Query Reports<br>
</font>
<br><font size=2 face="Arial">What is the best approach to using a parameterized SQL Server stored procedure as a recordsource for an A2k report?</font>
<br><font size=2 face="Arial">I was thinking of basing the report on a pass-through query (containing an EXEC statement), but it appears that I would need to modify the pass-through SQL each time the report is run, to set the parameter values.</font>
<p><font size=2 face="Arial">Brett Barabash, MCP <br>
Tappe Construction, Co. <br>
Eagan, MN <br>
bbarabash@tappeconstruction.com <br>
(651) 256-6831 </font>
<p><font size=2 face="Arial">"One thing a computer can do that most humans can't is be sealed up in a cardboard box and sit in a warehouse." -Jack Handey</font>
<p><font size=3 face="Times New Roman"> </font>
<br><font size=3 face="Times New Roman"><br>
<br>
--------------------------------------------------------------------------------------------------------------------<br>
This email and any files transmitted with it are confidential and<br>
intended solely for the use of the individual or entity to whom<br>
they are addressed.<br>
If you have received this email in error please notify the<br>
originator of the message. This footer also confirms that this<br>
email message has been scanned for the presence of computer viruses.<br>
<br>
Any views expressed in this message are those of the individual<br>
sender, except where the sender specifies and with authority,<br>
states them to be the views of Tappe Construction Co.<br>
<br>
Scanning of this message and addition of this footer is performed<br>
by SurfControl E-mail Filter software in conjunction with <br>
virus detection software.</font><font size=2 face="Courier New">_______________________________________________<br>
AccessD mailing list<br>
AccessD@databaseadvisors.com<br>
http://databaseadvisors.com/mailman/listinfo/accessd<br>
Website: http://www.databaseadvisors.com<br>
</font>
<br>
<br>