Programmatically adding objects like lines

[KillGorack]

Hi,

I'm creating a one-off timeline that is comprised of some lines, and labels.

This is being created in a report within a group header/

Problem is, there are a lot of them, I'm creating a weekly calendar and I need ONE line and ONE label per week. Two years worth is over 100 of each of these.

What I'm doing now is creating ALL of these lines and labels with names sticking those names in an array, and looping through some dates to position them. (Works pretty well) but it's a bit much.

Create ALL the lines and create an array. (it's big)


lineObjects = array("lnA", "lnB".......

Same with the labels.

Then I loop through dates, and position the lines and labels.

    curDate = fromDate
    c = 0
    Do While curDate <= toDate
        yPitch = DateDiff("d", fromDate, curDate)
        Me.Controls(lineObjects(c)).Left = (dayPitch * yPitch)
        Me.Controls(labelObjects(c)).Left = (dayPitch * yPitch) + 10
        Me.Controls(labelObjects(c)).Caption = Format(DatePart("ww", curDate, vbMonday, vbFirstFourDays), "00")
        curDate = curDate + 7
        c = c + 1
    Loop

Is there an easier way?

[CJ_London]

not sure it helps but have you heard of the report lines feature? Or are you using the line object?

https://learn.microsoft.com/en-us/of...ss.Report.Line

You really need to provide a screenshot of the report so responders have a clear image of the requirement. From your description it is quite possible all you need is one label and one line in a continuous report and some code in the detail onformat event to reposition (I can't see how you could have 104 columns (given the max width of a report is around 560mm, means each column is about 5mm wide)

[Gicu]

Depending how you have the those lists of names, if in a separated string you could use the Split() function but probably easier is to add then to tables then use the GetRows method of a DAO.Recordset object to populate your arrays.
https://learn.microsoft.com/en-us/of...ows-method-dao
Cheers,

[orange]

You may get some additional insight from this Draw Lines and Boxes article by Crystal.
She has several articles - many great references.

[KillGorack]

I'm gonna try the report.lines thing for sure.. before we do image of the work in progress, and current code that moves the stuff around.