アクセスのVBで作成した選択クエリが開けない
アクセスのVBで選択クエリを作成し、それを開こうとすると、開けません。
作成された選択クエリをデザインビューで見てみると、変数janがそのまま入力されて
しまっていて、クォーテーションマークで囲われていないのが原因のようなのですが・・・。
どうしたら良いか教えてください。。
コードは以下のとおりです。
Set DB = CurrentDb
Set qdf = DB.QueryDefs("商品データ抽出")
StrSQL = qdf.SQL
StrSQL = "SELECT ASPOWNER_PRODUCT_MASTER.PRODUCT_ID, ASPOWNER_PRODUCT_JAN_CODE_V.JAN_CODE, ASPOWNER_PRODUCT_MASTER.DISPLAY_NAME FROM ASPOWNER_PRODUCT_MASTER AS ASPOWNER_PRODUCT_MASTER_1 INNER JOIN (ASPOWNER_PRODUCT_MASTER INNER JOIN (ASPOWNER_PRODUCT_JAN_CODE_V INNER JOIN ASPOWNER_PRODUCT_JAN_CODE_MAP ON ASPOWNER_PRODUCT_JAN_CODE_V.JAN_CODE_ID = ASPOWNER_PRODUCT_JAN_CODE_MAP.JAN_CODE_ID) ON ASPOWNER_PRODUCT_MASTER.PRODUCT_ID = ASPOWNER_PRODUCT_JAN_CODE_V.PRODUCT_ID) ON ASPOWNER_PRODUCT_MASTER_1.PRODUCT_ID = ASPOWNER_PRODUCT_MASTER.PRODUCT_ID"
StrSQL = StrSQL & " WHERE (((ASPOWNER_PRODUCT_JAN_CODE_V.JAN_CODE)="
StrSQL = StrSQL & jan
StrSQL = StrSQL & "));"
qdf.SQL = StrSQL
DoCmd.OpenQuery "商品データ抽出", acViewNormal, acEdit
お礼
御礼が遅くなってすいません、 大変参考になりましたありがとうございます