Insert Into Query

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
You are missing your field name from your results table and the opening
single quote
"SELECT Contact_LastName FROM Results Where [FieldName]='" & strWhere & "'"
 
Back
Top