Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1062 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8953】リポートのフォーマットについて ひろ 07/1/10(水) 0:37 質問[未読]
【8955】Re:リポートのフォーマットについて 小僧 07/1/10(水) 9:20 回答[未読]
【8956】Re:リポートのフォーマットについて ひろ 07/1/10(水) 11:12 質問[未読]
【8953】リポートのフォーマットについて
質問  ひろ E-MAIL  - 07/1/10(水) 0:37 -
引用なし
パスワード
   表形式のリポートでフォーマット時に、各レコードに工期初と工期終があり、５０日分のテキストボックスを作りました。ＶＢで工期期間を色を塗ってみたいのですが、みんな同じ色になってしまいます。どなたか良い知恵はありませんか。

If Not Me!工期始 Then
　　ks = Me!工期始
Else
　　ks = Now
End If

Dim ke As Date
If Not Me!工期終 Then
　　ke = Me!工期終
Else
　　ke = Now + 20
End If

If Me!k >= ks And Me!k < ke Then
　　Me!d01.BackColor = vbBlack
　　Me!d02.BackColor = vbBlack

End If

If Me!k1 >= ks And Me!k1 < ke Then
　　Me!d11.BackColor = vbBlack
　　Me!d12.BackColor = vbBlack

このMe!k が連番になっていて５０あります。
　最初のレコードにある工期だけがks,keに入っているだけで２番目の工期は
　入っていません。
【8955】Re:リポートのフォーマットについて
回答  小僧  - 07/1/10(水) 9:20 -
引用なし
パスワード
   ▼ひろ さん：
おはようございます。

> ＶＢで工期期間を色を塗ってみたいのですが、みんな同じ色になってしまいます。

表型式のフォームやレポートの場合
デザインビューで見ると解るとおり実際のコントロールは一つです。

レコード毎に色を変えたい場合は条件付書式を設定するのが
一般的だと思われます。
【8956】Re:リポートのフォーマットについて
質問  ひろ E-MAIL  - 07/1/10(水) 11:12 -
引用なし
パスワード
   小僧様、早速のご返答ありがとうございます。

>レコード毎に色を変えたい場合は条件付書式を設定するのが
>一般的だと思われます。

色を塗る条件は複雑で、ヘッダー部に詳細部のテキストボックスと対応する
日付の入ったテキストボックスがあります。日曜日及び祝祭日なら塗り潰しと
なります。その曜日の条件がまずありまして、その後各工期期間ならば別の色
で塗ることになります。条件付書式では出来るのでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1062 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080767
(SS)C-BOARD v3.8 is Free