| |
こんにちは、メイ子と申します。
メインフォーム「目次」にリスト「担当者」があり、リスト「担当者」からデータを選択すると、サブ「詳細」に詳細を表示するとともに、選択済みのリストのデータに色付けしていきたいのです。
いろいろ参考にして、下記のようにしてみましたが、
With Me!担当者.FormatConditionsのところで、「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とエラーがでます。
リストボックスの選択データに色付けはできないのでしょうか？
どなたかご指導をお願いいたします。
Private Sub 担当者_AfterUpdate()
Me!詳細.Requery
Dim db As Database
Dim qqq As QueryDef
Set db = CurrentDb
Dim ctl As Control
Dim aaa As String
Dim sql As String
Set ctl = Me!担当者
For Each varItem In ctl.ItemsSelected
aaa = aaa & " or 担当者='" & ctl.ItemData(varItem) & "'"
Next varItem
aaa = Mid(aaa, 9)
Debug.Print aaa
With Me!担当者.FormatConditions
.Delete
With .Add(acExpression, , "担当者=" & aaa)
.BackColor = 16764057
.FontBold = True
End With
End With
End Sub
|
|
メイ子
- 06/10/16(月) 11:46 -
