![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
アクセスでフォームにテキストボックスとリストボックスを配置して、
テキストボックスに入力した文字列により、リストボックスに表示される
データを変えたいのですが(フィルタをかけるというのでしょうか??)
そこで、vbaを用い、リストボックスのプロパティの値集合ソースに
SELECT * FROM aaa where aaa.bbb like "*あ*";
'あ と言う文字のあいまい検索のつもり ”あ”はテキストボックス
に入力されている。
と入るような事を考えたのですが、ここで、aaaの部分がテーブルを基にした
場合は、該当するデータすべてが表示されますが、クエリーを基にすると
先頭のデータしか表示しないのです。
たぶん、素人の考えなのでしょうが、どうしてそうなるのかが分かりません。
教えていただけないでしょうか?
できたら、クエリーを基にしても、該当データが表示できる方法も
教えてください。お願いします。
VBAは(?)かなりの初心者です。上記の方法も本に書いてあった物を
やっと流用しました。猿にも解るくらいでお願いします。
ちなみに、アクセスは2000を使用しています。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_07.png?e8efa67)
No.1ベストアンサー
- 回答日時:
>クエリーを基にすると先頭のデータしか表示しないのです
(・_・?おかしいですね、できると思いますよ
とりあえず、テキストボックスを使用したリストボックスの表示更新サンプルを記します
キーワード:
テーブル:AAA
AAAテーブルに含まれるフィールド:BBB
テキストボックス:TxtABC
リストボックス:LstDEF
'~~~~~~~~~~
'検索テキストボックスの変更時イベントプロシージャ
Private Sub TxtABC_Change()
Dim stSQL As String
'リストボックスのソースとなるSQL記述
stSQL = "SELECT AAA.* FROM AAA "
'検索値は入力されているか?
If IsNull(Me![TxtABC].Text) = False Then
'条件式付与
stSQL = stSQL & "WHERE ((AAA.BBB) "
'検索文字列に「*」または「?」が入力されているか?
If InStr(1, Me![TxtABC].Text, "*") Or InStr(1, Me![TxtABC].Text, "?") Then
stSQL = stSQL & "Like"
Else
stSQL = stSQL & "="
End If
'検索条件値付与
stSQL = stSQL & " '" & Me![TxtABC].Text & "') "
End If
'並べ替え付与
stSQL = stSQL & "ORDER BY AAA.BBB;"
'リストボックスのソース更新
Me![LstDEF].RowSource = stSQL
End Sub
'~~~~~~~~~~
参考になれば幸いです。頑張りましょう。
素早い回答ありがとうございました。感謝・感激!です。
早速、頑張ってみます。
でも、検索文字列の配慮とか(?)並べ替えとか(?)
初心者には気がつかない点まで、御指導下さいまして、
ありがとうございました。
今後ともよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのコンボボックスの”すべ...
-
Accessのコンボボックスの値が...
-
Accessのカレンダーコントロー...
-
Accessのコンボボックスでリス...
-
ACCESSで、リストの内容...
-
フォームでの検索
-
ACCESS リストボックスの字の色...
-
Access サブフォームでの選択行...
-
エクセルで、抽出したデータだ...
-
Accessでデータを更新したらそ...
-
accessでオートナンバーを使わ...
-
ACCESS 複数のフォームから同一...
-
2ちゃんのレス抽出の方法
-
Access 複数フォームを...
-
AccessのWHERE句において、変数...
-
AccessのFormのみをスクリーン...
-
PDFファイルから特定の文字を検...
-
PCゲーム 音声 画像 抽出方法
-
Accessのレコード数をテキスト...
-
Excel 文字列から6桁の数値の抽出
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
帳票フォームでのあるコンボボ...
-
Accessのコンボボックスの値が...
-
ACCESS リストボックスの字の色...
-
ACCESSでコンボボックスにSQLで...
-
ACCESSクエリ抽出条件について
-
accessでオートコンプリート機...
-
Access フォーム内 コンボから...
-
Oracleで文字列型の時間を引き...
-
Accessのコンボボックスのデフ...
-
(ACCESS)フォームデータシート...
-
Access2003 孫フォームのRequer...
-
パススルークエリのデータ件数...
-
リストボックスの時はリンク先...
-
Access 帳票フォームのコンボボ...
-
リストボックスで選択したデー...
-
Accessのフォーム(コンボボッ...
-
自動入力
-
ACCESSでフラグによる文字表示
-
コンボボックスのリスト外入力...
おすすめ情報