Microsoft Access 掲示板

Microsoft Access 掲示板

カレンダー形式のスケジュール管理フォーム作成時における、日付の色を変更したい。 / 24

34 コメント
views
4 フォロー
24
hatena 2020/05/14 (木) 18:05:04 修正

同日の中に確定と未確定があるので、それが分かる方法であれば、開始時間と略名が両方とも赤文字 や
マークなどでも構わないのです。

1日に複数の予定がある場合があるということですね。
だとすると、予定毎に色を変えることは一つのラベルでは無理です。
1日の最大予定数のラベルを1日当たりに配置するか、
あるいは、ラベルをテキストボックスに変更して「文字書式」プロパティを「リッチ テキスト形式」にして文字色を変更するように仕組みにする必要があります。
どちらにしても、大幅な修正が必要になります。

マークを追加するという方式なら、コードを少し修正するだけですみます。

例えば未確定([確定]フィールドが空欄)なら、略名の前に ☆ を表示するという仕様なら下記のコードになります。

    Do Until rs.EOF
        With Me("T" & rs!作業日 - FirstDay)
            .Caption = .Caption & rs!開始時間 & " " & Nz(rs!確定,"☆") & rs!略名 & vbCrLf
        End With
        rs.MoveNext
    Loop
通報 ...