フォーム上の、テキストボックスの色について
ACCESSで、
作成→その他フォーム→データシートで、フォームを作成しました。
下記のコードを作成しましたが、反映しません。
Private Sub Form_Load()
If Month(Me.[日時]) = Month(Date) Then
Me.[日時].ForeColor = vbRed
End If
End Sub
条件付き書式も反映しません。
一応下記の通りなのですが、式が多分間違っているかもしてません。
Month(Me.[日時]) = Month(Date)
お手すきの時に回答いただけたら幸いです
フォームのデータシートビューにおいては、そのフォームの DatasheetForeColor プロパティの設定が優先され、テキストボックスの ForeColor プロパティの設定は事実上無効となります。
データシートフォームにおいて、それぞれのレコードごとにテキストボックスの前景色を切り替えるようにしたければ、条件付き書式を用いる方法しかありません。
sk様
詳しい説明ありがとうございました。
条件付き書式でできました。