[AccessD] Gantt chart in Access

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
> 




More information about the AccessD mailing list