VBAでのテーブル作成クエリの作成と保存

Question

VBAを使用してmake tableクエリを作成して保存することはできません。私はそれを（DAO.Database）currentdb.executeを使用して実行することができますが、CreateQueryDefを使用してselect queryを使用してクエリとして保存することはできません。私はそれを以下のスクリーンショットに示すように保存しておきたいと思います。
Can/.CreateTableDefを使用できますか？はいの場合は、例を挙げてください。

< - 私は何をしたいのか
< - 私はあなたがこれを行うために、クエリ定義を作成する必要がCreateQueryDef

strSQL = "SELECT PRODUCT.product_id, PRODUCT.upc, PRODUCT.name, PRODUCT.size, PRODUCT.uom, PRODUCT.manufacturer, PRODUCT.category, PRODUCT.colour INTO PRODUCT IN 'C:\LIVE IMAGES\" & frm.cboManu.Value & ".mdb'" & _ 
     " FROM PRODUCT " & _ 
     "WHERE (((PRODUCT.desc_a) IN (SELECT desc_a FROM PRODUCT WHERE manufacturer LIKE " & Chr(34) & "*" & frm.cboManu.Value & "*" & Chr(34) & ")));" 

Answer 1

使って何ができますか。 QueryDefのAccessヘルプを使用します。お役に立てれば。

Dim q as QueryDef  
    Set q = New QueryDef 
    q.SQL = strSQL 
    q.Name = "TEST_SQL" 
    CurrentDb.QueryDefs.Append q 
    CurrentDb.QueryDefs.Refresh