小编MES*_*MES的帖子

我想将查询结果复制到表中。

我尝试了这个：

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

但是我想我忘了一些东西。你能帮我吗，谢谢！