アクティブ(カレント)レコードに条件付き書式で
アクティブ(カレント)レコードに条件付き書式で色を付けるには？
フォームに乗ってるサブフォームに対して、レコードが移動したら条件付き書式をつけたいです。
サブフォームのCurrentイベントに
//////////////////////////////////////////////////////
Private Sub Form_Current()
Dim avarContorol As Variant
Dim iLoop As Integer
Dim ctl As Control
Dim mystr As String
Dim i As Integer
ReDim avarControl(Me.Controls.Count - 1)
For i = 0 To Me.Controls.Count - 1
avarControl(i) = Me.Controls(i).Name
Next i
For iLoop = 0 To UBound(avarControl)
With Me.Controls(avarControl(iLoop)).FormatConditions
.Delete
'コントロールが文字列型ならダブルコーテーションでくくる
With .Add(acExpression, , "[名前] = """ & Me.Controls("名前") & "")
.BackColor = 255
End With
End With
Next iLoop
End Sub
//////////////////////////////////////////////////////
としたのですが、エラーにもならないけど、色もつかないです。
予想としては赤になると思ったのですが・・・
しかも、２０１０は設定した条件付き書式をフォームビューでは確認できないようです。
フォームビューで設定した条件付き書式は保存されないから、デザインビューで確認しようとしても、見れません。
サブフォームに対して行おうとしているからできないのでしょうか？
どこが間違ってるか教えていただけますか？
ご回答よろしくお願いします。
お礼
回答頂きありがとうございました。