Q&A
締め切り一覧をaccessの表形式のフォームで管理しています。
締め日のレコードは赤文字で表示し、締め日を意識付けたいのですが
うまくvbaを組むことができません。
例えば、締め日が本日のものだけを赤くしたいときは以下のコードを記載していますが
一番上のレコードの日付が条件に合致していると、すべてのレコードが赤文字になり
一番上のレコードの日付が条件に合致していないと、すべてのレコードの色が変わりません。
Private Sub Form_Open(Cancel As Integer)
If [入力日時] = #1/15/2022# Then
[入力日時].ForeColor = &HFF
End If
End Sub
どのようにしたらレコードごとに条件判定をさせることができるでしょうか。
※条件式書式を使っていないのは、締め日の条件を
1億円以上は土日水除く5営業日前、1億円未満は土日水を除く2営業日前としており
その判別式の組み方がvbaでしか分からなかったためです。
回答1件
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
2022/01/16 17:15