Visual Basic 6 Reporting

Posted on 2001-06-04
Medium Priority
Last Modified: 2013-11-25
I want to produce some reports using the dataenvironment and data report. I know how to call these up from a form. But how do i print say a subset of the table. Eg all fields with two dates, i would have the dates on the form for the user to fill in. Ten the report should print fields matching this criteria.
Question by:sedatriza
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 53

Accepted Solution

Ryan Chong earned 800 total points
ID: 6152013
Hi, here is an idea:

DataEnv.rsGetRecords.Open "SELECT * FROM Table Where date between #" & format$(date1.Value,"mm/dd/yyyy") & "# and # "& format$(date1.Value,"mm/dd/yyyy") & " #"

If iPrint = 0 Then Rpt.PrintReport True, rptRangeAllPages Else Rpt.Show

Author Comment

ID: 6152055
seems like it should work. where exactly do i type this in.

Thank you


Expert Comment

ID: 6152202
Can i say that,
Add that line of code,in the lostfocus of the DTPICKER(if u use that) or the text box where in u type the date.
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Author Comment

ID: 6152638
i am probably very dense. But i can not get this to work.
I have set my dataenvironment and report and this bit works if i want to see everything. I just can't get the above working. Please explain slowly.



Expert Comment

ID: 6157828
I have a few questions to ask.

When you set up the data environment and the data report, did you specify "table" as the data command type and does your report reference that table?  If so, unless you override at run time, you will get all the records in the table.

One way to do what you want is to set up the data command (which I've named MyTblByDates) as an SQL statement, something along the lines of
    select * from MyTbl where MyDate between ? and ?

Then, on the parameters tab, define the two question marks as pDate1 and pDate2 respectively (set the types appropriately).

All references in the Data Report (rptMyTbl) need to specify DataSource:de and DataMember:MyTblByDates
Then in your code
    ' Create the recordset for the report
    de.MyTblByDates dDate1, dDate2
    ' show the report
    rptMyTbl.Show vbModal
    ' close the recordset

note: de is my DataEnvironment

Expert Comment

ID: 6765444

As stated in your question at:


Please provide feedback to this question, or let me know what direction you would like to take. In order to delete or PAQ (store in our database) a question, you must state so here in the question. We then give the experts a full three days in which to object to the deletion or PAQ. At that time, you can post a question at community support requesting that the questions be deleted or PAQd, whichever the case may be. In the question at community support, please provide the link(s) to the question(s) you would like handled and how you would like them handled.

community support moderator

Expert Comment

ID: 6901104
ADMINISTRATION WILL BE CONTACTING YOU SHORTLY.  Moderators Computer101 or Netminder will return to finalize these if still open in seven days.  Please post closing recommendations before that time.

Question(s) below appears to have been abandoned. Your options are:
1. Accept a Comment As Answer (use the button next to the Expert's name).
2. Close the question if the information was not useful to you, but may help others. You must tell the participants why you wish to do this, and allow for Expert response.  This choice will include a refund to you, and will move this question to our PAQ (Previously Asked Question) database.  If you found information outside this question thread, please add it.
3. Ask Community Support to help split points between participating experts, or just comment here with details and we'll respond with the process.
4. Delete the question (if it has no potential value for others).
   --> Post comments for expert of your intention to delete and why
   --> You cannot delete a question with comments, special handling by a Moderator is required.

For special handling needs, please post a zero point question in the link below and include the URL (question QID/link) that it regards with details.
Please click the Help Desk link on the left for Member Guidelines, Member Agreement and the Question/Answer process for further information, if needed.  http://www.experts-exchange.com/jsp/cmtyHelpDesk.jsp

Click you Member Profile to view your question history and keep them all current with updates as the collaboration effort continues, to track all your open and locked questions at this site.  If you are an EE Pro user, use the Power Search option to find them.  Anytime you have questions which are LOCKED with a Proposed Answer but does not serve your needs, please reject it and add comments as to why.  In addition, when you do grade the question, if the grade is less than an A, please add a comment as to why.  This helps all involved, as well as future persons who may access this item in the future to seek help.

To view your open questions, please click the following link(s) and keep them all current with updates.

------------>  EXPERTS:  Please leave any comments regarding your closing recommendations if this item remains inactive another seven (7) days.  Also, if you are interested in the cleanup effort, please click this link http://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=commspt&qid=20274643

Moderators will finalize this question if still open in 7 days, by either moving this to the PAQ (Previously Asked Questions) at zero points, deleting it or awarding expert(s) when recommendations are made, or an independent determination can be made.  Expert input is always appreciated to determine the fair outcome.
Thank you everyone.
Moderator @ Experts Exchange

P.S.  For any year 2000 questions, special attention is needed to ensure the first correct response is awarded, since they are not in the comment date order, but rather in Member ID order.
LVL 49

Expert Comment

ID: 7132852
Moderator, my recommended disposition is:

    Accept ryancys's comment(s) as an answer.

DanRollins -- EE database cleanup volunteer

Expert Comment

ID: 7167856
Comment from expert accepted as answer

E-E Moderator

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

770 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