Show Bid Request VB6 data_report NOT using dataenvironment Bid Request Id: 30047 Bookmark in my 'To Do' list Posted by: infomed (37 ratings) (Software buyer rating 10) Non-action Ratio: Very Good - 14.81% Buyer Security Verifications: Good Approved on: Oct 6, 2002 5:01:04 PM EDT Bidding Closes: Oct 20, 2002 5:13:00 PM EDT Viewed (by coders): 175 times Phase: 100% of work completed and accepted. Coder has been paid. Max Accepted Bid: Bidding is closed Project Type: Very Small Business Project: under $100 (USD) Bidding Type: Open Auction Categories: Database, Language Specific, Visual Basic Enter chat room for this bid request (0 active users at Sep 8, 2003 8:19:52 PM EDT) Description: I am looking for the code (short, sweet, and well commented) to take a recordset (see example below) and print out a data report. The report will contain some client information at the top (e.g, name, address, etc.) then the rest of the page is blank. The next page will have record #2. The page after that record #3 from the dataset, and so on. The number of pages is variable from 1 to 100 or more. (The record set essentially is a list of folks being pulled from a medical schedule database. All the clients (aka patients) who have appointments will need their address and insurance information placed on the top of a form. Getting the patient info on the page, and then moving to the next patient on the next page is what I need to accomplish here.) I realize that using a detail window makes sense, but I need to do this all in code, and NOT linking fields to the dataenvironment. How do I do this not using controls, but rather via code alone. Thanks. Jon P.S. given the number of times I've been told this can be done, and then the accepted bidder can't do it, I will only select a coder who sends me the code or demo up front. Thanks. Here is the code that pulls the recordset: Dim cnn1 As ADODB.Connection Dim strQry As String Dim rs As ADODB.Recordset strQry = "Select * from Scheduling Where Scheduling.Date Like '" & p_ScheduleDate & "' Order By Scheduling.Date" Set cnn1 = New ADODB.Connection cnn1.ConnectionString = g_ADOschedule cnn1.Open Set rs = GetRecordSet(cnn1, strQry) 'get the recordset With rs While Not rs.EOF 'my code that pulls the user's name, etc. go here, and this I don't need help with. Just the code that gets each 'recordset to be displayed on a seperate page. rs.MoveNext Wend End With Set cnn1 = Nothing Set rs = Nothing Deliverables: 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. Platform: win Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation please help out the site and report it. Thanks for your help.   Bidding/Comments: All monetary amounts on the site are in United States dollars. Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. See all rejected bids (and all comments) Name   Bid Amount    Date   Coder Rating   This bid was accepted by the buyer! Peter Dimitrov (1 ratings) in Sofia, Bulgaria Bulgaria Bid id: 335,778   $10 (USD) Oct 6, 2002 6:10:41 PM EDT  10 (Excellent)     Here is my example. I am not using array or Dataenvironment. Only ADODB.Recordset. There is only 20 lines of code (include sorting). You can generate more records in the database to see how the reports works with 1, 100 or 5000 records. Regards Peter Attached File           There are 4 private replies to/from Peter Dimitrov. Click here to view them.