Insert Into Query

[Guest]

I have three buttons on a nomination form, if users click on any of the
button I want the contact name and other information for that particular
record to be inserted into a table. I used the following code:

Dim SQL As String
Dim strWhere As String

strWhere = Me.Contact_LastName

SQL = "INSERT INTO tblteams " & _
"(teamname) " & _
"SELECT Contact_LastName FROM Results Where =" & strWhere & "'"

DoCmd.RunSQL SQL

But it keeps giving me syntax error in the Where clause can someone please
help me?

Thanks

 

[Guest]

You are missing your field name from your results table and the opening
single quote
"SELECT Contact_LastName FROM Results Where [FieldName]='" & strWhere & "'"