Syntex error

[aman]

Hi All

I am trying to copy data from a query to a table using vba. Please help me to get rid of the error message.

Private Sub Command0_Click()
Dim sql As String
sql = "Insert into Table5 values as (select * from query1);"
DoCmd.RunSQL sql
End Sub

Thanks

 

[DJkarl]

Hi All

I am trying to copy data from a query to a table using vba. Please help me to get rid of the error message.

Private Sub Command0_Click()
Dim sql As String
sql = "Insert into Table5 values as (select * from query1);"
DoCmd.RunSQL sql
End Sub

Thanks

sql = "Insert into Table5 select * from query1;"