Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5321 / 9994

←次へ　｜　前へ→


	【7899】条件付書式の設定

Satsuki - 06/5/29(月) 17:25 -


	引用なし

	パスワード

こんにちは、Satsukiと申します。

メインフォーム「選択」とサブフォーム「一覧表示」があって、メインフォームのテキストボックス「Ｇ入力」の入力値により、サブフォームのリストが絞りこまれるのですが、そのリストの値「ＣＤ」が、メインフォーム「CH1」「CH2」「CH3」「CH4」のいずれかの値と一致したら、色を変えたいのです。

どこかのホームページを参考にし、下記のように作りましたが、.Deleteのせいで最後の値（CH4と一致するデータ）だけしか色が付きません。
そこで、.Deleteの部分をmodifyやaddに変えてみましたが、サポートしていないというエラーが出てしまいます。

どなたかご教示頂けないでしょうか。よろしくお願いいたします。

Private Sub Form_Current()
Dim myarray() As Variant
Dim LP As Integer
Dim LLP As Integer

myarray = Array("グループ", "グループ２", "ＣＤ")
yrarray = Array(Forms![選択]![CH1], Forms![選択]![CH2], Forms![選択]![CH3], Forms![選択]![CH4])

For LLP = 0 To UBound(yrarray)
For LP = 0 To UBound(myarray)
　 With Me(myarray(LP)).FormatConditions
　　 .Delete
　　 With .Add(acExpression, , "[ＣＤ] = " & yrarray(LLP))
　　　 .BackColor = 52377
　　　 .FontBold = True
　　 End With
　 End With
Next LP
Next LLP
End Sub

329 hits

▼

【7899】条件付書式の設定 Satsuki 06/5/29(月) 17:25

≪