William Hindman
wdhindman at dejpolsystems.com
Mon Feb 8 19:48:13 CST 2010
http://www.mvps.org/access/forms/frm0055.htm has a much better font for this than Courier New ...but I will certainly give your code a spin ...thanks :) William -------------------------------------------------- From: "Stuart McLachlan" <stuart at lexacorp.com.pg> Sent: Monday, February 08, 2010 5:09 PM To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Subject: Re: [AccessD] Gantt chart in Access > 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 > > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >