| |
まさ7251 さん、お教えいただいてありがとうございます。
>サブルーチン内で宣言している変数は、サブルーチン内でのみ有効です。
>よって、aaaは、担当者をクリックするたびにクリアされます。
>サブルーチンの外に出せば、このフォーム内で有効になります。
標準モジュールを１つ作り、下記のように記述しました。
Public aaa As String
>条件式は、”担当者='aaa' or 担当者='bbb'”とするより、
>”担当者 In ('aaa','bbb')”のようにするほうがすっきりするかと思います。
下記のように条件欄を変え、deleteは残して、public変数を参照するようにしてみましたが、一瞬上手く行ったかのように見えたのですが、やはり複数条件になりません。
Private Sub 担当者_Click()
Me!詳細.Requery
Dim aaa As String
aaa = aaa & ", '" & Me.担当者 & "'"
aaa = Mid(aaa, 3)
With Me.担当者.FormatConditions
.Delete
With .Add(acExpression, , "担当者 In(" & aaa & ")")
.BackColor = 16764057
.FontBold = True
End With
End With
End Sub
>ちなみに、クリック時に追加していくだけでは、
>当然、同じ担当者を何度もクリックすると、何個も条件に入ってしまいますし、
>間違って選んだ際にやり直しすることも出来ませんが、
>その辺は、問題ないのでしょうか。
アドバイスありがとうございます。初心者ですので、そこまで気が回りませんでした。
どう記述したらよいか考えるのに時間がかかりそうですので、まずは最低限の処理をなんとかしたいと思います。
ご指導よろしくお願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
