Too Few Parameters error from VBA only

[nschroeder]

When I run the following code, I get the "Too few parameters. Expected 1." message when it hits the Set rsQry line. However, if I go to the Immediate pane, extract the TxtVal value, and paste it into the SQL window of a query, it runs just fine. Why would I get this message from VBA when it's proven valid query code?

    TxtVal = "SELECT [qryEAccess-AllInfo].EANum, [qryEAccess-AllInfo].Name, [qryEAccess-AllInfo].ReqType, qryEmpShortNames.Username, Systems.EmailCCList " & _
             "FROM ((([qryEAccess-AllInfo] INNER JOIN EAccessAssignments ON [qryEAccess-AllInfo].EANum = EAccessAssignments.EANum) " & _
             "LEFT JOIN Systems ON EAccessAssignments.SysNum = Systems.SysNum) " & _
             "LEFT JOIN qryEmpShortNames ON Systems.EmpNum = qryEmpShortNames.EmpNum) " & _
             "LEFT JOIN ReqTypeSystems ON EAccessAssignments.SysNum = ReqTypeSystems.SysNum " & _
             "WHERE [qryEAccess-AllInfo].EANum=[Forms]![EAccess].[EANum] AND ReqTypeSystems.ReqTypeCode=""" & PhFx & """;"

    Set rsQry = db.OpenRecordset(TxtVal)

If it helps, here is the ?TxtVal results that works when pasted into SQL:

?Txtval
SELECT [qryEAccess-AllInfo].EANum, [qryEAccess-AllInfo].Name, [qryEAccess-AllInfo].ReqType, qryEmpShortNames.Username, Systems.EmailCCList FROM ((([qryEAccess-AllInfo] INNER JOIN EAccessAssignments ON [qryEAccess-AllInfo].EANum = EAccessAssignments.EANum) LEFT JOIN Systems ON EAccessAssignments.SysNum = Systems.SysNum) LEFT JOIN qryEmpShortNames ON Systems.EmpNum = qryEmpShortNames.EmpNum) LEFT JOIN ReqTypeSystems ON EAccessAssignments.SysNum = ReqTypeSystems.SysNum WHERE [qryEAccess-AllInfo].EANum=[Forms]![EAccess].[EANum] AND ReqTypeSystems.ReqTypeCode="PH";

 

[nschroeder]

Kept digging and found the problem. Updated the WHERE clause to the following:

             "WHERE [qryEAccess-AllInfo].EANum=" & [Forms]![EAccess].[EANum] & " AND ReqTypeSystems.ReqTypeCode=""" & PhFx & """;"