アクセス複数の条件で同じ書式をつけるには？

質問

条件付き書式です。（しかもVBAです）
一つのフィールドに対して違う条件だけど同じ書式をつけたい時、
まとめる事は出来ないのでしょうか？

例えばフォールド１の「あ」と「い」を赤にしたい場合、

Sub test01()
Dim Field As String
Dim MyFormName As String

MyFormName = "フォーム"
Field = "フィールド1"

With Forms(MyFormName).Controls(Field)
With .FormatConditions
.Delete

With .Add(acExpression, , "[" & Field & "]=""あ""" And "[" & Field & "]=""い""")
.ForeColor = 225
End With
End With
End With
End Sub

のような事は出来ないのでしょうか？
これをすると
実行時エラー：型が一致しません。(Error 13)
になります。

素直に、
Sub test02()
Dim Field As String
Dim MyFormName As String

MyFormName = "フォーム"
Field = "フィールド1"

With Forms(MyFormName).Controls(Field)
With .FormatConditions
.Delete

With .Add(acExpression, , "[" & Field & "]=""あ""")
.ForeColor = 225
End With
With .Add(acExpression, , "[" & Field & "]=""い""")
.ForeColor = 225
End With
End With
End With
End Sub
としなくちゃダメでしょうか？

何故こんな事がしたいかと言うと、3つ以上やりたい条件がありので、
同じ書式のものはまとめたいのです。

ご教授よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

解決しましたか？
ダブルクォーテーションの数とAndの位置設定が違っているようですが。
以下のように。

With .Add(acExpression, , "[" & Field & "]=""あ"" And [" & Field & "]=""い""")

あるいは、条件が「あ」または「い」の時ならば、

With .Add(acExpression, , "[" & Field & "]=""あ"" Or [" & Field & "]=""い""")

でよろしいかと。

お礼

回答ありがとうございました。

回答No.3

piroin654

No2の変数名に余分なものがくっついていました。

With .Add(acExpression, , "[" & Field & "]=""あ"" Or [" & Field & "]=""い""")

です。

お礼

回答ありがとうございました。

回答No.2

piroin654

No1です。
たぶん、Andで条件を結合すると質問の画像では色がつかないので、
二番目のOrで条件を結合するようになると思いますが。以下です。

With .Add(acExpression, , "[" & strField & "]=""あ"" Or [" & strField & "]=""い""")

お礼

回答ありがとうございました。