how to represent a graphical display of time duration on a report or form

[jmcr]

I have a Schedule table with the following fields:
Date (LongDate)
AgentID (Number)
ShiftStartTime (ShortTime)
ShiftEndTime (ShortTime)

I would like to represent this information graphically with horizontal bars on either or both a report and form
For instance:
..............................|8am ...................... |12pm....................... ......|4pm................................ |8
Agent 1: 8:30-5:30....... [|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||]
Agent 2: 12-4 ........................................ [|||||||||||||||||||||||||||||]
Agent 3: 10-6 ....................... [|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||]
etc...

Is there some way I can do this using VBA? Maybe formatting a txtbox size and coloring through VBA code based on a Datediff value?

Or maybe an easier way?

I am relatively new to VBA but understand programming concepts. Any assistance or example of simple code would be greatly appreciated.


Thanks

[ItsMe]

I seem to recall a thread using the Form's Timer Event and the Width property of a control. Using the forms' timer event can be expensive in terms of RAM though.

[June7]

Although not using a bar display, this thread discusses methods to display a schedule for days of month horizontally. https://www.accessforums.net/databas...ses-18459.html

Problem with setting a control's width property (programmatically or manually) on form is the width would be the same for every record. However, setting it programmatically in report OnFormat event works - the event runs only when report opened in PrintPreview or direct to printer. I think the real trick would be determining the Left position of control.