Access VBA SQL Statement with VBA variables 1

[kjv1611]

I have the following code:

Dim myquery as QueryDefine

Set myquery = CurrentDb.CreateQueryDef([strQueryName], _
 "SELECT A.DNUM, A.[Desk#], A.Name, A.Balance, A.[Due Date], " & _
 "A.[Due Amount], A.[Attorney Information] " & _
 "FROM tblStatusAudit A " & _
 "WHERE (((A.[Team Leader])=strTeamLeader) " & _
 "AND ((A.Status)=strVarItm));")

When run, it is asking me for data for the variable, strTeamLeader. Of course, when I open the newly created query in design view, it shows strTeamLeader in the criteria under [Team Leader].

Does anything catch anyone's eye right off the bat, where I'm just making a el-stupido error? This is just a small piece of the total code running with this module, I can provide any extra info/code as needed.

My system is this: Windows 2000, Office XP, so 2002 versions of all Office software.

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[SiJP]

this line

"WHERE (((A.[Team Leader])=strTeamLeader) " & _

should be

"WHERE (((A.[Team Leader])= ' " & strTeamLeader & "') " & _

..I think..

------------------------
Hit any User to continue

 

[kjv1611]

That looks right, and I should know that by now, b/c I've made the same stinkin' error a few times already with other sql statements and such.. doh! I'll see if that fixes, and post back. Thanks for the response.

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[kjv1611]

Yep, for sure, that was the fix. Thanks a ton!
[SMILE]

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV