ACCESSのリストボックスのヘッダーについて

このQ&Aのポイント
  • ACCESSのリストボックスのヘッダーに関してご質問いただきました。リストボックスを使用してテーブルのデータを表示している中で、ヘッダーの表示方法に課題があります。
  • 現在、リストボックスの見出し(ヘッダー)は「A.[1]」や「A.[2]」などの形式で表示されていますが、特定の列のヘッダーを「[1]」や「[2]」のように表示させたいというご要望です。
  • 調査の結果、リストボックスのヘッダーの表示を変更する方法は見つかりませんでした。ただし、別の方法として、リストボックスのヘッダーをテーブルのフィールド名やカラム名と一致させることで、目的の表示を実現することができるかもしれません。
回答を見る
  • ベストアンサー

accessのリストボックスのヘッダーについて

度々お世話になっております。 ACCESSのリストボックスを使って、下記のようにして テーブルのデータを表示しております。 lstデータ.rowsource = "SELECT A.[1], A.[2], B.[1] FROM A LEFT JOIN B ON (A.[3] = B.iNum) AND (A.[5] = B.[5]) AND (A.[4] = B.[4])" ここでリストボックスの見出し(ヘッダー)も表示して いるのですが例えば1列目なら「A.[1]」と表示されて しまいます。 これを「[1]」とだけ表示させたいのですが、 何か方法があるでしょうか? 度々で恐縮なのですが、どうかよろしく お願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.2

lstデータ.rowsource = "SELECT A.[1] as [1], A.[2], B.[1] FROM A LEFT JOIN B ON (A.[3] = B.iNum) AND (A.[5] = B.[5]) AND (A.[4] = B.[4])" でうまくいきましたか? as で別名を付ける(エイリアス)、と言う方法なんですが、結果[1]が複数存在すると、A.[1]なのか、B.[1]なのか特定できないエラーになりはしないか、と懸念した次第です。

sansan33311
質問者

お礼

bin-chan様 再度のご回答ありがとうございました。 なるほど、そういうことでしたか。 これで理解できました。 深謝!!

その他の回答 (1)

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

lstデータ.rowsource = "SELECT A.[1] as [1], A.[2], B.[1] FROM A LEFT JOIN B ON (A.[3] = B.iNum) AND (A.[5] = B.[5]) AND (A.[4] = B.[4])" としたいところですが、B.[1]の[1]が邪魔します。 B.[1]を[6]として読み直すクエリB2を作成して、そちらを組み込んでください。 lstデータ.rowsource = "SELECT A.[1] as [1], A.[2], B2.[6] FROM A LEFT JOIN B2 ON (A.[3] = B2.iNum) AND (A.[5] = B2.[5]) AND (A.[4] = B2.[4])"

sansan33311
質問者

お礼

bin-chan様 早速のご回答、ありがとうございます。 なるほど、A.[1]に関しましてはできました。 素人に近いもので、よくわからないのですが、 「B.[1]の[1]が邪魔します」というところが、 よくわからないのですが、、、

関連するQ&A

  • access vba での left join について

    お世話になります。 accessで下記SQLを実行し、リストボックスにデータを 表示したいのですが、何故かデータを表示してくれ ません。 lst表.RowSource = "select A.1, A.2, B.1 from A Left Join B On A.3 = iNum And (A.4 = B.4 And A.5 = B.5)" SQLについてはあまり詳しくないのですが、 どこが間違えているのか、おわかりのかたが おられましたら、よろしくお願いいたします。

  • リストボックスの使い方

    お世話になります。 VBAで下記コードを書き、リストボックスにカラムを2列 表示させたいのですが、"番号"しかリストボックスに 表示されません。 Me.lst入居者一覧.ColumnCount = 2 Me.lst入居者一覧.RowSource = "SELECT 氏名,番号 FROM 一覧" Me.lst入居者一覧.ColumnWidths = "2;2" リストボックスのプロパティー等はちゃんと設定して いるつもりなのですが、何が原因なのでしょう? どうかよろしくお願いいたします。

  • Accessの表結合SQL

    AccessのSQLで外部結合を複数使うと SQLがエラーになります。 クエリで確認してエラーにならない様につくってみましたが、意図する事をやろうとするとエラーになります。 どこが悪いか教えていただけませんか?おそらくSQLサーバーでは余裕で通るSQLだと思うのですが。。。 SQL = SELECT * FROM T1 LEFT JOIN T2 ON T1.A = T2.A LEFT JOIN T3 ON T1.B = T3.B LEFT JOIN T4 ON T1.C = T4.C AND T4.D = iNum WHERE T1.E = 'iNum' やりたいのはT1を基準にT2,T3,T4からデータを引っ張ってきたい。その条件としてT4から引っ張ってくるのは T4.DがiNumである事、基準となるT1のT1.EがiNumである事です。 Accessでは"AND T4.D = iNum"がだめで、 WHERE区に書くと外部結合にもかかわらずT4.D = iNumのデータしか抽出されなくなる。(T1.C = T4.CのデータがT4.D = iNumでなくてもT1のデータが抽出されなくてはならない。) さらに SQL = SELECT * FROM ((T1 LEFT JOIN T2 ON T1.A = T2.A) LEFT JOIN T3 ON T1.B = T3.B) LEFT JOIN T4 ON T1.C = T4.C AND T4.D = iNum WHERE T1.E = 'iNum' こんな括弧が必要になってくる。 これだとT1とT2を外部結合した結果をT3と外部結合して さらにその結果をT4と外部結合しているという意味あいになってしまって、意図が違うのですが。。 結果は同じなのでAccessに譲ってやってもいいのですが 前者はT1で抽出されなければならないデータが抽出されないので困ります。 よろしくお願いいたします。

  • access2003のフォーム上でのリストボックスの使い方

    いつもお世話になっております。 access2003を使っております。 フォーム上にリストボックスを貼り付け、 プロパティーで列見出しを「はい」にし、 列数をたとえば5などにします。そうすると リストボックスにヘッダーが表示されますが、 そこに文字(見出し)を表示させることができません。 どのようにすればいいのかご教示いただけないで しょうか? お手数ですが、よろしくお願いいたします。 #当方の環境にnorthwindなどのサンプルが #インストールされていないもので、できれば #具体的な示唆をいただけないでしょうか?

  • リストボックスのリストを削除する

    リストボックスのリストを削除する アドバイスをお願いします。 下の構文でユーザーフォーム内のリストボックスに リストを表示させるようにしました。 Private Sub UserForm_Initialize()  With ListBox1 .RowSource = "データー!B3:B33" End With End Sub 表示されたリスト内で、不要になったリストをコマンドボタンの押下したときに データーシートのB3からB33の中から選択したリストと同じデーターを 探して削除する方法をお教えください。

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

     今、ユーザーフォームをつくり、その中にリストボックスを配置したんですけど、セルに入力されている値を表示したいと思い、RowSourceプロパティに"sheets1!A1:C100"と指定しました。しかし、実際リストボックスに表示されたのは先頭のA列だけで、B、C列は表示されませんでした。どうしたらこれらは表示できるのでしょうか。もとの参照データが膨大な為、よろしくお願いします。

  • ACCESS VBA リストの規定値

    フォームにテキストボックス(txt商品条件、txt金額条件)とリストボックス(lst結果)があり、 txt商品条件を満たす物をlst結果に表示させ、 lst結果に表示された中で、txt金額条件を満たす物を選択された状態にしたいのですがどうしたらいいでしょうか? lst結果にtxt商品条件を満たす物を表示させることはできたのですが、 ---------- Me!lst結果.RowSource="SELECT * FROM 商品" _ &"WHERE 商品グループ'" & Me!txt商品条件 & "'" Me!lst結果.Requery ---------- txt金額条件を満たす物を選択状態にする方法がわかりません。どのようにしたらいいのでしょうか?

  • エクセルVBA リストボックスの使い方について・・・

    Private Sub CommandButton1_Click() ListBox1.RowSource = "sheet1!A1:A8" End Sub 上記にあるようにA1~A8にあるデータをリストボックスに表示させたいのです・・・ でも上記方法だと、コマンドボタンをクリックしないと、リストボックスに登録できないですよね・・・ 自分的にはリストボックスが立ち上がった状態ですぐにA1~A8のデータをリストボックス内に表示させたいのですが、そのようなことが出来るのでしょうか? 宜しくお願い致します。

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

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

  • accessのリストボックスでデータをソートして表示する

    いつもお世話になっております。 Accessを使っております。 リストボックスに下記コードでデータを表示して います。 Me.lstA.RowSource = "SELECT 月 FROM 入金表 ORDER BY 月" 「月」はString列なのですが、ソートして表示すると ----------------------------  10  11  1  3  6  7 ---------------------------- と表示されます。これを ----------------------------  1  3  6  7  10  11 ---------------------------- と表示させたいのですが、何かいい方法はないで しょうか? よろしくお願いいたします。