質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.19%

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

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 371

jamada

score 7

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

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • jamada

    2019/12/04 16:05

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

    キャンセル

  • SurferOnWww

    2019/12/04 17:05

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

    キャンセル

  • jamada

    2019/12/04 17:07

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

    キャンセル

回答 1

checkベストアンサー

0

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

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

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/12/05 12:22

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

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

    キャンセル

  • 2019/12/05 12:31

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

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

    キャンセル

  • 2019/12/05 12:46

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.19%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる