ACCESSで工程表を作りたい

質問

会社でACCCESSを使ってでたとえばＡ工事の工期（1/10～2/25）、Ｂ工事の工期（2/1～5/12）、Ｃ工事の工期（4/20～6/18）を入力すると自動的に下記のような図を描くようにできないかと相談されました。
つまり工期始めと工期終わりだけを入力するとその間に自動的に線か記号を並べるというものです。
はたしてこういうことは可能でしょうか？
どうかお知恵をよろしくおねがいします。
ACCCESSの知識はそこそこありますが、ＶＢＡはよくわかりません。

　　　　　　　｜　１　　月　｜　２　　月　｜　３　　月　｜　４　　月　｜　　５　月　｜　６　　月　｜
Ａ工事　　　　　　　＊＊＊＊＊＊＊＊＊
Ｂ工事　　　　　　　　　　　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Ｃ工事　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊＊＊＊＊＊＊＊＊＊

回答No.3

peso · ベストアンサー

フォーム／レポートのテキストボックスに対して式を設定します。

エラーになるのは

　　開始日、あるいは終了日が日付として認識できない（空白など）

　　終了日より開始日の日付ほうが後になっている

でエラーが出ます。

なので、たとえば、開始日か終了日が空白だったら何も表示しないようにするためには、

=IIf(IsNull([開始日]),"",IIf(IsNull([終了日]),"",Space$(Int(([開始日]-DateSerial(Year([開始日])-1,12,31))/5)) & String$(Int(([終了日]-[開始日])/5),"*")))

のようにします。

お礼

お礼が大変遅くなって申し訳ございませんでした（gooからの投稿があった旨のメールが来なかったよう？なので）
おかげさまで無事うまくいきました！本当にありがとうございました。

回答No.2

peso

=Space$(Int(([開始日]-DateSerial(Year([開始日])-1,12,31))/5)) & String$(Int(([終了日]-[開始日])/5),"*")

このような感じだと思います。（ VBA は使わなくても OK ）
５日ごとにスペース、あるいは * が出てきます。
これを等幅フォントで実行し、ラベル等でメモリをつければそれらしいものが出来ます。

補足

さっそくの返答ありがとうございました。
で、上記の式はフォームのテキストボックスに作成するのでしょうか？（エラーが出たのですが）
申し訳ございませんがもう少し具体的な手順を教えていただけないでしょうか。
お手数ですがよろしくお願いします。

回答No.1

O_cyan

一ヶ月間は大まかに３等分するくらいでいいのでしょうか？

補足

そうです。図は大体のイメージがつかめればいいそうですので、前半、半ば、後半の３等分くらいでいいです。