| |
>リストボックスでは無理でしょう。
>サブフォームをリストボックスのように作れば出来ると思います。
作り直してみました。
メインフォームの中にサブフォームを二つ作り、サブ「一覧」のフィールド「担当者」をクリックしたときのイベントに下記のように記述しました。
クリックしたレコードすべてに色をつけていきたいので、「.delete」を消すと、
「実際の書式条件数の数より多い値が、書式条件数に設定されています。」
と表示されエラーになります。
「.delete」をつけたまま、なんとかaaaの中に書式条件を足していきたいのですが、うまく行きません。どなたかご指導お願いいたします。
Private Sub 担当者_Click()
Me!詳細.Requery
Dim aaa As String
aaa = aaa & " or 担当者='" & Me.担当者 & "'"
aaa = Mid(aaa, 9)
With Me.担当者.FormatConditions
.Delete ←削除
With .Add(acExpression, , "担当者=" & aaa)
.BackColor = 16764057
.FontBold = True
End With
End With
End Sub
|
|
メイ子
- 06/10/19(木) 16:11 -
