
Originally Posted by
maximus
Let me get this straight you have a select query which you use to populate a form. You want to use the return values of the same query to insert into another table using an insert query.
I have two simple tables
Give={ID,A,B}
Take={ID,A,B}
I have used a command button to insert the result of a select query into Table Take from Table Give. Here is the code.
Private Sub Command0_Click()
Dim strSQLInsert As String
strSQLInsert = "Insert Into take (ID,A,B) SELECT ID,A,B FROM Give WHERE ID = 1"
DoCmd.RunSQL strSQLInsert
End Sub
So now you can use the same select query to get the values for an Append query and insert the record in your table.
If this solves your problem please mark this thread solved.