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 [url removed, login to view] Dim strQry As String Dim rs As [url removed, login to view] strQry = "Select * from Scheduling Where [url removed, login to view] Like '" & p_ScheduleDate & "' Order By [url removed, login to view]" Set cnn1 = New [url removed, login to view] [url removed, login to view] = g_ADOschedule [url removed, login to view] Set rs = GetRecordSet(cnn1, strQry) 'get the recordset With rs While Not [url removed, login to view] '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. [url removed, login to view] Wend End With Set cnn1 = Nothing Set rs = Nothing
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.