Visual Basic 6 Reporting

Posted on 2001-06-04
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 51

Accepted Solution

Ryan Chong earned 200 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.
Independent Software Vendors: 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.

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

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

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

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

Suggested Solutions

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
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…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA.…

756 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