アクセス：サブフォーム（データシート）の各列に条件付き書式を追加するVBA

Question

データシートモードのサブフォームを含むAccessフォームが多数あります。各列に条件付き書式を適用したいと思いますが、このループを設定する方法がわかりません。

Forms!ParentForm!Subform.Forms.Column.FormatConditions.Add(acExpression, blah) 

しかし、私はトラブルを考え出すを抱えているか、各列のためにこのような何かをループする：

は、私は1つオフなどの条件付き書式を追加する方法を知っています。これらの列のそれぞれに対して一般的なオブジェクト名が何であるかを知ることは役に立ちます。このアマチュアは、より経験豊富なコミュニティからの任意の助けを感謝される

For Each Column In Me.SubForm 
     Me.SubForm.Form.Column.FormatConditions.Add(...,...) 
next column 

：

とにかく、私はそれがこのようなものでなければなりません考えていました。ありがとう！

Answer 1

これはわかりました。ここの列はコントロールオブジェクトです。条件付き書式設定ルールを追加するために、識別タグをコントロールに適用しました。だから私はこのようにループすることができます：

Dim ctl As Control 

For Each ctl In Forms!ParentForm!ChildForm.Controls 
    If ctl.Tag = "BR_SelectFormating" Then 
     ctl.FormatConditions.Delete 
     ctl.FormatConditions.Add(...,...) 
     ....'other formatting details here... 
    end if 
Next ctl