Stuart McLachlan
stuart at lexacorp.com.pg
Mon Feb 8 16:09:40 CST 2010
Of course! <slaps self on forehead> Just use a block character with a fixed width font in a text string: Create a stack of text boxes each of which runs across the full form. Set the font to Courier New (a fixed width, unicode font). Set the font colours of the textboxes to different values if you want different coloured lines. Create the following function. Function Plot(startpos As Long, endpos As Long) As String If Nz(startpos) < 1 Then Exit Function If Nz(endpos) < 1 Then Exit Function If endpos < startpos Then Exit Function Plot = IIf(startpos > 1, Space$(startpos - 1), "") & String$(endpos - startpos + 1, ChrW(&H2588)) End Function To display a line running from Day 3 to Day 5 in the first row: txtLine1 = Plot(3,5) You can also use the shaded unicode characters &H2591 - &H2593 to get more variety. -- Stuart On 8 Feb 2010 at 14:04, Susan Harkins wrote: > William, I am so sorry... years ago I wrote about this in Inside Microsoft > Access. Those old issues are packed up in my daughter's basement and they're > not online, as far as I know. I did a google search, just in case. :( > > AIR...it was an extremely simple formula using Chr() -- I just don't > remember how I repeated that function that appropriate number of times. It > was... as you and JC would put it... dead simple. > > If anyone has access to those old issues of IMA, maybe they might look it > up -- would've been pre 1998. > > Susan H. > > > > Charlotte > > > > ...that remains an option but I generally don't like embedded reports in > > runtime installs ...not just the appearance of them but they're fragile as > > well ime ...but I'm not dismissing it if I can't come up with a form > > approach that works. > > > > William > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com