創建並保存在VBA中創建表查詢

Question

我無法通過VBA創建和保存make table-查詢。我能夠使用（DAO.Database）currentdb.execute執行它，但不能像使用CreateQueryDef的select query那樣將它保存爲查詢。我希望它被保存，如下面的屏幕顯示。
可以/我應該使用.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做。使用QueryDef上的Access幫助。希望這可以幫助。

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