I need somebody to show me how to use the following code to build an array (I believe this is the best way to do this). I am pulling between zero and 50 times from a schedule database with the following code. Once I pull the recordset, I want to display the schedule, but can't figure out how to do it. What do I need to do this? You can put code in the data_report, but that's it. The code below will basically put one row into my data_report, but if there are 50 recordsets, only the last one appears. How do I have controls made on the fly to fit the number of records returned, without having to set up tons of labels at design time? Thanks Jon Private Sub DataReport_Initialize() 'get schedule Dim cnn1 As [login to view URL] Dim strQry As String Dim rs As [login to view URL] strQry = "Select * from Scheduling Where [login to view URL] Like '" & p_ScheduleDate & "' Order By [login to view URL]" Set cnn1 = New [login to view URL] [login to view URL] = g_ADOschedule [login to view URL] Set rs = GetRecordSet(cnn1, strQry) 'get the recordset [login to view URL](1).Controls(1).Caption = p_ScheduleTitleDate Do While [login to view URL] = False If Not IsNull(rs!Date) Then VisitTime = Format((rs!Date), "hh:mm AMPM") Else VisitTime = "" End If If Not IsNull(rs!name) Then name = rs!name Else name = "" End If If Not IsNull(rs!Phone) Then Phone = rs!Phone Else Phone = "" End If If Not IsNull(rs!VisitType) Then VisitType = rs!VisitType Else VisitType = "" End If If Not IsNull(rs!Booker) Then Booker = Left(rs!Booker, 10) & " " & Format(rs!DateBooked, "mm/dd/yy") Else Booker = "" End If [login to view URL] Loop Set cnn1 = Nothing Set rs = Nothing [login to view URL](3).Controls(1).Caption = VisitTime [login to view URL](3).Controls(2).Caption = name [login to view URL](3).Controls(3).Caption = Phone [login to view URL](3).Controls(4).Caption = VisitType [login to view URL](3).Controls(5).Caption = Booker End Sub
## 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
## Deadline information
I'm not looking for anything fancy, just some good and well commented code which will turn this one rs into 50, if need be.