hatena の Microsoft Access 掲示板



[7217] RE:ガントチャートで工程表を作成する方法 Name:hatena Date:2017/07/18(火) 15:05
テーブルのデータの期間と、ガントチャートの期間が一部でも重なっていたら、塗りつぶす、という仕様とします。

例えば、テーブルの
開始年月日 2017/04/12
終了年月日 2017/04/18
の場合、

4月1週 4/01〜4/07 
  2週 4/08〜4/14 ○
  3週 4/15〜4/21 ○
  4週 4/22〜4/31

というようになります。(○が塗りつぶし)

テーブルデータの方も、ガントチャートの方も、幅のある期間なので、両社が重なるという条件式は、下記で説明しています。

クエリでの期間の抽出条件 - hatena chips

上記の一番最後の式を利用します。


T1: IIf([開始年月日] <= DateSerial([Forms]![フォーム名]![年度],4,7) And DateSerial([Forms]![フォーム名]![年度],4,1) <=[終了年月日],"g","")

T2: IIf([開始年月日] <= DateSerial([Forms]![フォーム名]![年度],4,14) And DateSerial([Forms]![フォーム名]![年度],4,8) <=[終了年月日],"g","")

T3: IIf([開始年月日] <= DateSerial([Forms]![フォーム名]![年度],4,21) And DateSerial([Forms]![フォーム名]![年度],4,15) <=[終了年月日],"g","")

T4: IIf([開始年月日] <= DateSerial([Forms]![フォーム名]![年度],4,31) And DateSerial([Forms]![フォーム名]![年度],4,22) <=[終了年月日],"g","")

以下同様に、D48 まで作成します。D48は下記になります。

T48: IIf([開始年月日] <= DateSerial([Forms]![フォーム名]![年度]+1,3,31) And DateSerial([Forms]![フォーム名]![年度]+1,3,22) <=[終了年月日],"g","")

フォーム上には、「年度」選択用のコンボボックス、48個のテキストボックスを配置して、コントロールソースを T1 T2 ・・・・T48 と設定します。
この辺は、サンプルの F_出退勤 とほぼ同じ構成になります。

マウスドラッグで範囲指定はちょっと難しいので、保留。


スレッド記事表示 No.7208 ガントチャートで工程表を作成する方法 ほっち2017/07/12(水) 18:05 [ 返信 ]
   ┣No.7209 RE:ガントチャートで工程表を作成する方法 hatena2017/07/14(金) 06:12
   ┣No.7210 RE:ガントチャートで工程表を作成する方法 ほっち2017/07/16(日) 19:59
   ┣No.7217 RE:ガントチャートで工程表を作成する方法 hatena2017/07/18(火) 15:05
   ┣No.7232 RE:ガントチャートで工程表を作成する方法  ほっち2017/07/26(水) 18:21
   ┣No.7233 RE:ガントチャートで工程表を作成する方法  ほっち2017/07/26(水) 18:23
   ┣No.7238 RE:ガントチャートで工程表を作成する方法 hatena2017/07/27(木) 13:24
   ┣No.7240 RE:ガントチャートで工程表を作成する方法 hatena2017/07/27(木) 16:24
   ┣No.7241 RE:ガントチャートで工程表を作成する方法  hatena2017/07/27(木) 18:27
   ┣No.7242 RE:ガントチャートで工程表を作成する方法  ほっち2017/07/27(木) 19:41
   ┣No.7243 RE:ガントチャートで工程表を作成する方法 hatena2017/07/28(金) 02:11
   ┣No.7247 RE:ガントチャートで工程表を作成する方法  ほっち2017/07/29(土) 08:21
   ┣No.7249 RE:ガントチャートで工程表を作成する方法 hatena2017/08/01(火) 13:31
   ┗No.7268 RE:ガントチャートで工程表を作成する方法 ほっち2017/08/05(土) 13:53

  




無料レンタル掲示板・日記・ブログ Progoo