Solved

How to pass multipe items in OpenArgs event of an ACCESS 2010 report

Posted on 2014-11-17
4
266 Views
Last Modified: 2014-11-17
I pass the name of the report in its caption using the Open Args.  But, I need to pass two items in open args.  One to dynamically change the report title and an argument to change the sort order.  Right now, I pass the caption, but how to I add a second argument?

    DoCmd.OpenReport strReportName, acViewReport, , strFilter, , strReportCaption

Private Sub Report_Open(Cancel As Integer)
    Me.lblTitle.Caption = Me.OpenArgs
   
End Sub

Need to add in the Report_Open event
     Me.OrderBy = Me.OpenArgs
     Me.OrderByOn = True
Will post as another question as you did answer the one I asked.

Sandra
0
Comment
Question by:ssmith94015
  • 2
  • 2
4 Comments
 
LVL 57

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 500 total points
Comment Utility
The simplest is to choose a delimiter, say a vertical pipe, and do:

<caption>|<other value>|<othervalue>

then use Split() in the receiving object to split the string into an array.

Jim.
0
 

Author Closing Comment

by:ssmith94015
Comment Utility
Yes, the looks familiar.  I knew I had done this in one of my other databases, but simply could not remember which one and how.  They you for jogging my memory and I know this approach does work, I just could not remember it!

Sandra
0
 
LVL 57

Expert Comment

by:Jim Dettman (Microsoft MVP/ EE MVE)
Comment Utility
and just as an FYI, you can come up with all kinds of schemes.  For example:

"ADD;SETCTRLTODATA=txtCustomerID:" & NewData & ";EXITTOFORM=frmLoad"

This is a string I pass to a form in OpenArgs.   I'm using the semi-colon as a delimiter.

First argument is the mode the form should open in.   Second specifies that the following control/value pairs should be set, and the third is the form that focus should be returned to when closed.

Whatever you do, don't rely on position (i.e. 3rd argument in is this xxxx), but rather use a 'tag' (i.e. 'SETCTRLTODATA=') to tell you what the argument is.  

So in your case, maybe:

"SETCAPTION=<value>|SORTORDER=<value>"

Then your report open can be standardized looking for each thing that needs to be done as you should do it:

1. Do I need to set the caption?  Look for the tag.  not found, do nothing.  Found, set.
2. Do I need to set the sort order? Look for the tag....

or you can loop through the array after a Split() and act on each tag in turn.

Jim.
0
 

Author Comment

by:ssmith94015
Comment Utility
Thank you for the follow up and I learned a long time ago not to rely on position!  When I inherited this database, there was a report for every scenario, the same report, but now I just have one to worry about and pass the needed filter and arguments.  Easier to maintain the one now than 15 copies.  I use the pipe as I can see it better, but important thing is it does get the job done.

Sandra
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now