Insert Into Query

[Guest]

I created a team nomination form with 3 command buttons, if users click on
any of the button I want the team member information to be inserted into
another 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 there is an error in the Where clause, can someone help me please?

Thanks

 

[Guest]

You are probably missing the " " around the name. Try
.....Results Where =""" & strWhere & "'"

NevilleT

 

[Guest]

My guess is that this should do the trick as well:

"SELECT Contact_LastName FROM Results Where = '" & strWhere & "'"

(just a single quote before the double quote before the ampersand)

 

[Guest]

And you should apply your field name as well on what the criteria field is.

"SELECT Contact_LastName FROM Results Where [yourfield] ='" & strWhere & "'"

 

[Douglas J. Steele]

Of course, that's still missing the field name to which the value is being
compared (and it won't work if strWhere contains an apostrophe)

 

[Guest]

Thanks guys
--
TO

And you should apply your field name as well on what the criteria field is.

"SELECT Contact_LastName FROM Results Where [yourfield] ='" & strWhere & "'"
--
Maurice Ausum

You are probably missing the " " around the name. Try
....Results Where =""" & strWhere & "'"

NevilleT