Access VBA質問箱 IV

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

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


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

4529 / 9994

←次へ　｜　前へ→


	【8710】Re:リストボックスの書式設定

まさ7251 - 06/10/20(金) 12:10 -


	引用なし

	パスワード

>標準モジュールを１つ作り、下記のように記述しました。
>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 & ")")

こちらで前の２文字を除外するように記述すれば良いかと思います。

712 hits

▼

【8681】リストボックスの書式設定 メイ子 06/10/16(月) 11:46