条件付書式・・・？

質問

いつもお世話になってます。
アクセスのフォームで日付のテキストボックスがあるんですが、
その背景を日にあわせて自動的に変えたいと思います。
・一ヶ月前の間　→　黄色
・今月中　　　　→　赤
条件付書式でできそうな気がするんですが、具体的な設定の仕方が
わかりません。教えて下さい。
宜しくおねがいします。
アクセスは２０００を使っています。

回答No.2

peso · ベストアンサー

条件付書式でなら

条件1（一ヶ月前の間）に
フィールドの値が次の値の間
DateSerial(Year(Date()),Month(Date())-1,1)
および
DateSerial(Year(Date()),Month(Date()),0)

条件2（今月中）
フィールドの値が次の値の間
DateSerial(Year(Date()),Month(Date()),1)
および
DateSerial(Year(Date()),Month(Date())+1,0)

こんな感じだと思います。

お礼

回答ありがとうございます。
できました。
ほんとにありがとうございました。

回答No.1

maruru01

こんにちは。maruru01です。

フォームの読み込み時イベント（Loadイベント）に、次のように書けばいいと思います。

Private Sub Form_Load()

　　Dim NowMonth As Integer
　　Dim tempMonth As Integer
　　Dim temp As Interger

　　NowMonth = Month(Now)
　　With Me!日付
　　　　.SetFocus
　　　　tempMonth = Month(CDate(.Text))
　　　　temp = NowMonth - tempMonth
　　　　If temp = 0 Then
　　　　　　.BackColor = vbRed
　　　　ElseIf temp = 1 Or temp = -11 Then
　　　　　　.BackColor = vbYellow
　　　　End If
　　End With

End Sub

なお、日付を入力し直す場合は、テキストボックスの変更時イベントにも同様のコードを書けばいいでしょう。
あと、帳票タイプでレコードを移動するなら、フォームのレコード移動時イベントに書けばいいと思います。

では。

お礼

回答ありがとうございます。
やってみます。
・・で、わがまま言って申し訳ないのですが、条件付き書式での設定は、
不可能なのでしょうか？
ほんと、すみません。
もし、そちらの方法もあれば、教えて下さい。