• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:アクセス(ACCESS)のリストボックスについて)

アクセス(ACCESS)のリストボックスについて

teppyの回答

  • ベストアンサー
  • teppy
  • ベストアンサー率50% (9/18)
回答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 '~~~~~~~~~~ 参考になれば幸いです。頑張りましょう。

kazh
質問者

お礼

素早い回答ありがとうございました。感謝・感激!です。 早速、頑張ってみます。 でも、検索文字列の配慮とか(?)並べ替えとか(?) 初心者には気がつかない点まで、御指導下さいまして、 ありがとうございました。 今後ともよろしくお願いします。

関連するQ&A

  • ACCESSのリストボックス抽出について

    ACCESSにおいて、住所録テーブルを用意します。 フォーム上で県、市のリストボックスを作ります。 住所録テーブルには県と市のフィールドを作り、県名と市名を入力しておきます。クエリを用意し、リストボックスの県で例えば東京を指定するとそれに該当する市が抽出されて市のリストボックスから選択できるようにしたいのですがクエリ上では表示されるのですがリストボックスに反映されません。 どのようにすれば出来るのでしょうか。 (ちょうど教えて!gooで質問する際にカテゴリーの大分類から小分類を選択する時のようにです。)

  • アクセス初心者です。

    アクセスのフォームを作成しています。入力パターンが限られているので、コンボボックスで作成しました。コンボボックスのプロパティーでデータ⇒値集合タイプ”AAA”;”BBB”;”ccc”といれて、入力チェックをはい。リスト行数を3にして、作ったのですが、フォーム画面にしたときに、 AAA BBB CCC となっていないのです。”AAA”;”BBB”;”ccc”のまま選択リストにでてきます。なにがいけないのでしょうか??

  • Access リストボックス複数選択を抽出条件に

    Access リストボックスで複数選択した値をクエリの抽出条件にしたいです。 ※PC環境:Win7 Access2007 Excel2007 リストボックスで複数選択した値を取得する事はできるのですが、 クエリ実行をすると結果が0件になってしまいます。 他の方のQAなどを参考に以下を作成しましたが、ほしい結果が得られず困っています。 おわかりになる方、ご教示いただけますようお願い致します。 <動作概要> 「画面」の「リストボックス」で複数選択し、 [実行]ボタンを押して、「リストボックス」で選択した値を、「テキストボックス」にセットし、 クエリの抽出条件に、in(テキストボックス)をセットし、テーブルから合致するデータを抽出したい <リストボックス> ※年区分テーブル参照 区分,区分名 1,1年 2,2~3年 3,4~5年 「2,2~3年」「3,4~5年」を選択 ※「区分」は数値型 <VBA> Private Sub 実行_Click()  Dim i As Variant  Me.テキストボックス = Null  For Each i In Me.リストボックス.ItemsSelected Me.テキストボックス = Me.テキストボックス & Me.リストボックス.Column(0, i) & "," Next If Me.テキストボックス <> "" Then  Me.テキストボックス = Left(Me.テキストボックス, Len(Me.テキストボックス) - 1) End If   'ここで画面を確認すると「テキストボックス」には、「2,3」 がセットされている DoCmd.OpenQuery "クエリ"   'テーブルには抽出条件に該当するデータがあるが、クエリ実行結果は0件 End Sub <クエリ SQL> SELECT テーブル FROM テーブル WHERE (((テーブル.区分) in([Forms]![画面]![テキストボックス]))); ※「テーブル.区分」は、数値型 どうぞよろしくお願い致します。

  • ACCESS2010テキストボックス値を抽出条件に

    ACCESS2010にて、フォームに作ったテキストボックスの入力値(数字3桁)をクエリの抽出条件にしたいと考えています。 ただ、そのテキストボックスの数が30個の為、クエリデザイン画面の抽出条件欄にorを用いた条件式で設定することが出来ませんでした。(文字数上限超?) そこで、VBAを用いて抽出条件を設定しようと考えているのですが、初心者のため全く勝手が分かりません。VBAでの設定方法やVBA以外での抽出方法があれば教えて頂けないでしょうか。 尚、テキストボックスには商品コード(数字3桁)を入力し、売上データを集計したクエリにおいて、フォームのテキストボックスに入力された複数の商品コードを抽出条件に設定したいと考えております。 以上、どうかお願い致します。

  • フォームのリストボックスに値を表示させたい

    VBA フォームのリストボックスに値を表示させたい A1→aaa A2→bbb リストボックスに上記の値を表示させたいなら、 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!A1:A2" End Sub で出来ますが、シート上のセルで表示する値を指定するのではなく、VBA上で、リストボックスに表示させる値を指定したいのです。 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "aaa,bbb" End Sub を実行すると、VBA実行時エラー380になってしまいます。 UserForm1.ListBox1.RowSource = "aaa;bbb" もダメでした。 ご回答よろしくお願いします。

  • ACCESSのリストボックスの文字色について

    クエリで作成したデータをリストボックスで表示していますが、条件により一行の文字色を変えることが可能でしょうか? 例えば、リストボックスの表示項目がお客様名、工事進捗状況、・・・・とすると工事進捗状況が完成であれば一行の文字色を黒、未完了であれば赤色というように変えれないかと思っています。 表示するデータを表形式で作成すれば条件付書式の設定で可能とは思いますが、訳あってリストボックスで表示しています。 ご指導よろしくお願いいたします。 なお、作成環境は以下の通りです。  OS:WindowsXP  ACCESS:2003

  • アクセスでのリスト表示について。

    アクセス初心者です。フォームのコンボボックスにテキストボックスをつけて、コンボボックスには担当者コードテキストボックスには=cmb_担当者.column(1)等と書いて、担当者名をcolumnで表示するのは可能ですよね。リストボックスの中で一覧表を作成したのですが、今は数値ばかりが見えていて、訳が分かりません。テーブルへのデータはほとんど数値で入っていくようにしています。columnが使えたら、テキストでも表示されるので見やすくなると思うのですが、クエリでのcolumnの作成は可能なのでしょうか?

  • Accessのリストボックスについて

    いつもお世話になっております。 XP Pro.、Access2003を使っています。 フォームに貼り付けたリストボックスに列見出し を表示しています。 しかし、列見出しとデータ行との区別がつきにくいので、 列見出しだけ背景色を変えたいと考えているのですが、 該当するプロパティがみつかりません。 どのようにすればいいのか、ご教示お願いいたします。

  • Filemakerでのリストボックス

    皆様お世話になります。 FileMakerを最近使用し始めましていきなり挫折の連続です。 以前はAccess色々行っておりましたが、iPadを使用して仕事に使うことになりまてご相談した次第です。 行いことは、 画面に、Accessでいうリストボックスが数個用意されていて、選択されてものがテキストボックスへ書き出され、それをテキストファイルで書き出したいのです。 これのまず、リストボックスでつまづいております。 Accessではテキストファイルやテーブルに入っているデータをリストボックスに表示することができたのですが、FileMakerではどのようにすれば同じようなことが出きるのでしょうか? 漠然としていて申し訳ありませんが、ヒントをいただけませんでしょうか。 よろしくお願いいたします。

  • ACCESS2000の帳票フォームでテキストボックスの入力値を取得したい

    こんにちは。ACCESS2000でツールを作成しています。 テーブルはExcelにリンクさせ、クエリを介して帳票フォームで データを表示しています。 帳票フォームのレコード毎にテキストボックスを追加して それぞれ入力できるようにし、その値をVBAで取得したいのですが どうすればよいでしょうか。 テキストボックスを追加して実行すると、一つのテキストボックスに 入力した値が全てのレコードに反映されているようです。 帳票フォームのしくみがよく分かりません。 どなたか教えていただけないでしょうか。 宜しくお願いします。