Access ルックアップを設定したフィールドから表示されているデータで抽出したい

Question

Access ルックアップを設定したフィールドから表示されているデータで抽出したい

初めて質問します。Access初心者です。

ルックアップを設定してあるフィールド（顧客）の、保存されている主キー（顧客ID）ではなく表示されているデータ（氏名）を抽出条件に指定したいのですが、可能でしょうか。

帳票フォームヘッダーに検索用テキストボックス（txt検索）、検索コマンドボタン（cmd検索）を配置し、詳細部に抽出されたレコードを表示したいです。テキストボックスは部分一致を予定しています。

ネットを参考にしながら四苦八苦している初心者です。
解決できそうなサイトなどになかなかたどり着けないため、お力をお貸しいただけますと幸いです。

現在のコード

Private Sub Form_Open(Cancel As Integer)
    Me.Filter = "False"
    Me.FilterOn = True
End Sub

Private Sub cmd検索_Click()
Dim strFilter As String, strExp As String, aryOpe As Variant
 
    If Not IsNull(Me.txt検索) Then
        strFilter = strFilter & " AND 顧客 Like '*" & Me.txt検索 & "*'"
    End If
 
 Me.Filter = Mid(strFilter, 6)
    If strFilter = "" Then
        Me.FilterOn = False
    Else
        Me.FilterOn = True
    End If
End Sub

試したこと

抽出先は選択クエリで必要データを選択したもの（Q_案件）です。なのでその（Q_案件）自体に、リレーションシップを設定しているテーブル（T_顧客）から、表示されているデータ（氏名）も加えればいいのでは、と思ったのですが、（Q_案件）にテーブル（T_顧客）からフィールド（氏名）追加しても、データシートビューではフィールド（氏名）は表示されませんでした。

ものすごく初心者なので、前提から間違えているかもしれません。なにとぞご容赦ください。
宜しくお願いいたします。

また、この他にもおなじフォームで抽出したいものがあるためVBAを書いています。
初心者のためクエリウィザードなどで終わらせられたらよかったのだと思うのですが…

テーブルデータ例

■T_顧客
顧客ID
氏名
氏名ｶﾅ
郵便番号
住所
電話番号
携帯電話番号
FAX番号

■T_案件
案件ID
氏名（ルックアップで顧客IDが入っています）
登録日
終了日　
案件詳細
担当ID

お手数をおかけいたします。どうぞ宜しくお願いいたします。

Comments

[退会済みユーザー]

VB.NET のコードが書いてありますが、ACE プロバイダと ADO.NET ライブラリを使って Windows Forms アプリの DataGridView に表示するというような話なのですか？

[退会済みユーザー]

上のコメントは具体的に何を言っているかと言うと、以下の記事の画像のようなことです。

DataGridView に ID と名前を併記
http://surferonwww.info/BlogEngine/post/2014/02/01/how-to-show-both-id-and-name-on-datagridview-while-enabling-update.aspx

記事は SQL Server のものですが Access でも同様なことは可能です。見当ハズレでしたら失礼しました。

[jamada]

申し訳ありません，あまりに初心者で仰っていることが一つも理解できておりません…。
と書いていたところでした。拝見してきます。

[hatena19]

SurferOnWwwさん、Access の VBA での話だと思います。
jamadaさん、タグに VBA を追加しておいてください。

[jamada]

ご指摘ありがとうございます。追加してきます。
SurferOnWww様，作法がわかっていなかったようで，申し訳ありません

[退会済みユーザー]

VBA でしたか。的外れなレスですみませんでした。

[jamada]

SurferOnWww
いえ，こちらこそ，すみませんでした。ご対応ありがとうございました。

Answer 1

下記のように抽出条件でサブクエリを使えば可能です。

'        strFilter = strFilter & " AND 顧客 Like '*" & Me.txt検索 & "*'" これを下記に修正
         strFilter = strFilter & " AND 顧客ID In (SELECT 顧客ID FROM T_顧客" _
                               & " WHERE 氏名 Like '*" & Me.txt検索 & "*')"

T_顧客 のフィールドは 顧客ID, 氏名 となっていると仮定してます。

（Q_案件）にテーブル（T_顧客）からフィールド（氏名）追加しても、データシートビューではフィールド（氏名）は表示されませんでした。

どこか間違っているのでしょう。
そのうまくいかないクエリのSQL文を提示してもらえますか。

できるなら、こちらの方法の方がシンプルだし高速だと思いますので。

Comments

[jamada]

SQL文です。宜しくお願いいたします。

SELECT T_案件.顧客ID,T_案件.案件詳細, T_顧客.氏名, T_顧客.氏名ｶﾅ
FROM T_顧客 INNER JOIN T_案件 ON (T_顧客.顧客ID = T_案件.[顧客ID]);

[hatena19]

SQLを見る限りは問題ないですね。
T_顧客.氏名ｶﾅ は正しく表示されてますか。
T_顧客.氏名 はデータシートビューで空欄になるのですか、それとも列が表示されないのですか。

ちみなに、回答のVBAはうまくいきましたか。

[jamada]

どちらも列は表示されていて，空欄になってしまいます。

お教えいただいたVBAですが，うまくいきませんでした。
完全に一致する「氏名」をtxt検索に入力しても表示されるレコードは０件です。
なお，txt検索を空にした状態では全案件のレコードがでています…。

また，cmd検索ボタンを押したとき，パラメータの要求が出ました。
どこがおかしいのでしょうか…。申し訳ありません。

[jamada]

パラメータの要求は「顧客ID」です

[hatena19]

顧客ID はどちらのテーブルにもありますよね。
IDが全角になっているとかはないですか。

[jamada]

はい，どちらのテーブルにもあります。
確認してきましたがすべて半角でした。

[hatena19]

SELECT T_案件.顧客ID,T_案件.案件詳細, T_顧客.氏名, T_顧客.氏名ｶﾅ
FROM T_顧客 INNER JOIN T_案件 ON (T_顧客.顧客ID = T_案件.[顧客ID]);
このクエリで 氏名, 氏名ｶﾅ が空欄になるテーブルデータ例を質問に追記してもらえませんか。
再現できるものがないと検証できませんので。

[jamada]

お手数をおかけいたします。追記しました。不足情報があったらご教示いただけますと幸いです。

[hatena19]

追記ありがとうございます。
T_案件 のルックアップフィールドのフィールド名は、「氏名」ということですか。
ならば、SQLは下記になりますね。
SELECT T_案件.氏名,T_案件.案件詳細, T_顧客.氏名, T_顧客.氏名ｶﾅ
FROM T_顧客 INNER JOIN T_案件 ON (T_顧客.顧客ID = T_案件.[氏名]);

ルックアップを設定している場合、表示している列名ではなく、格納している列名にした方が誤解がないと思います。
T_案件の「氏名」→「顧客ID」

[jamada]

>ルックアップを設定している場合、表示している列名ではなく、格納している列名にした方が誤解がないと思います。
T_案件の「氏名」→「顧客ID」

なるほど，上記を試した後，変えてみます！！！
また来ます！！！ありがとうございます！

[jamada]

ありがとうございます，無事，正常に作動しました。
初歩だろうことまで丁寧にお教えくださり本当にありがとうございました。
まだまだ次のステップがあるので躓いたら質問を立てることになると思いますが，頑張って進めてゆきます。