訪問：複製查詢結果爲表VBA

Question

我想我的查詢結果複製到表中。

我想這：

Function queryintotable() 

Dim rs As New ADODB.Recordset 

DoCmd.SetWarnings False 

rs.CursorLocation = adUseClient  
rs.Open "target_table", CurrentProject.Connection 
rs.Sort = "Retail_ID ASC" 

Do Until rs.EOF = True 
    DoCmd.CopyObject , "myquery", acQuery, "target_table"  
    rs.MoveNext 
Loop 

rs.Close 

DoCmd.SetWarnings True 
MsgBox ("Finish! " & Time) 

End Function 

但我想我忘帶了什麼東西。請你幫助我，謝謝！代碼

Answer 1

一號線：

CurrentDB.Execute "Select myquery.* Into target_table From myquery" 

將創建一個名爲target_table含有結果集的myquery表。

CurrentDB.Execute "Insert Into target_table Select myquery.* From myquery" 

將插入結果集的myquery名爲target_table一個已經存在的表，具有相同的結構。