クエリの抽出条件

質問

現在、選択クエリ（Like[]）を使いその都度抽出条件を入力しているのですが、条件をコンボボックス等から選択するクエリを作ることは可能ですか？
知っている方、方法を教えてください。

回答No.3

O_cyan

選択クエリの抽出条件に
Like "*" & [Forms]![フォーム名]![コンボボックス名] & "*"
で部分一致として検索できます。
テキストボックスの場合は
[Forms]![フォーム名]![テキストボックス名]にすれば出来ます。

お礼

お礼が大変遅くなってごめんなさい。
仕事の合間に試しているのですが、私の理解力不足と時間の無さで、まだうまくクエリを作れていません。
また改めて質問し直しますが一度締め切ります。
本当にありがとうございました。

回答No.2

CHRONOS_0

Likeを使っているということは曖昧検索でしょうか
だったら
SELECT *
FROM テーブル名
WHERE フィールド名 Like [Forms]![フォーム名]![コンボボックス名] & "*"

クエリデザインビューなら抽出条件欄に
Like [Forms]![フォーム名]![コンボボックス名] & "*"

お礼

お礼が大変遅くなってごめんなさい。
仕事の合間に試しているのですが、私の理解力不足と時間の無さで、まだうまくクエリを作れていません。
また改めて質問し直しますが一度締め切ります。
本当にありがとうございました。

回答No.1

noname#22222

単に、Like に続けてコンボボックス名を書けば良いと思います。

（例：クエリ１）

SELECT 商品マスター.仕入先_ID, 商品マスター.商品名, 商品マスター.単価, *
FROM 商品マスター
WHERE (((商品マスター.仕入先_ID) Like [Forms]![商品検索]![コンボボックス_仕入先]));

（例：コンボボックスを参照するクエリの開き方）

Option Compare Database
Option Explicit

Private Sub コマンド_クエリーの実行_Click()
On Error Resume Next
DoCmd.OpenQuery "クエリ1", acNormal, acEdit
End Sub

Private Sub コンボボックス_仕入先_AfterUpdate()
On Error Resume Next
DoCmd.OpenQuery "クエリ1", acNormal, acEdit
End Sub

お礼

お礼が大変遅くなってごめんなさい。
仕事の合間に試しているのですが、私の理解力不足と時間の無さで、まだうまくクエリを作れていません。
また改めて質問し直しますが一度締め切ります。
本当にありがとうございました。