Too Few Parameters

[jgelpi16]

I have the following code executing on the click event. For some reason I keep getting the error message "too few parameters". It always hangs up on the set rs1 = ... portion. When I open the query there are records in the query. I don't understand why I am getting the message.

Dim db As Database, RS As Recordset, rs1 As Recordset, rs2 As Recordset, rs3 As Recordset
Set db = CurrentDb
Dim Strmsg As String, Strtitle As String
Dim IntStyle As Integer
Dim stDocName As String
 
 
DAO.DBEngine.SetOption dbMaxLocksPerFile, 40000
    
    Set RS = db.OpenRecordset("QryCCUAssignOpen", DB_OPEN_DYNASET)
    Set rs1 = db.OpenRecordset("QryCCUEmp", DB_OPEN_DYNASET)

[pbaldy]

I assume the query has form parameters? If so:

Too Few Parameters. Expected 1 Error Message

or you can wrap the form references in the Eval() function.

[HiTechCoach]

What is the SQl for the query QryCCUEmp?

Does the query have any form references as parameters?

If yes, then this is the problem. You will need to substiture the actual values into the query. You could use VBA code to built the SQL string or use VBA to modify the QueryDef.

[jgelpi16]

Here is SQL for QryCCUEmp. I do have a form reference, which is necessary. I'm not sure I follow what you are suggesting I do in VBA. I am not well versed in SQL in VBA. I can do simple select, delete, update and append queries in SQL but this is beyond my knowledge.

SELECT TblEmployees.Org_ID, TblEmployees.RACF_No, TblEmployees.LastName, TblEmployees.FirstName, TblEmployees.MI, TblEmployees.Phone, TblEmployees.Extension, TblEmployees.FaxNo, TblEmployees.Position, TblEmployees.ROType
FROM TblEmployees INNER JOIN TblPositionNo ON TblEmployees.[PosNo] = TblPositionNo.[PosNo]
GROUP BY TblEmployees.Org_ID, TblEmployees.RACF_No, TblEmployees.LastName, TblEmployees.FirstName, TblEmployees.MI, TblEmployees.Phone, TblEmployees.Extension, TblEmployees.FaxNo, TblEmployees.Position, TblEmployees.ROType
HAVING (((TblEmployees.ROType)=[Forms]![AAfrmTeamSel]![txtTeamCode]))
ORDER BY TblEmployees.LastName, TblEmployees.FirstName, TblEmployees.MI;

[HiTechCoach]

As Paul suggested, try this:

HAVING (((TblEmployees.ROType)=Eval([Forms]![AAfrmTeamSel]![txtTeamCode])))

[pbaldy]

As Paul suggested, try this:

HAVING (((TblEmployees.ROType)=Eval([Forms]![AAfrmTeamSel]![txtTeamCode])))

I'm pretty sure the Eval() function will require the form reference to be enclosed in quotes.

[HiTechCoach]

Like this:

HAVING (((TblEmployees.ROType)=Eval("[Forms]![AAfrmTeamSel]![txtTeamCode]")))

[jgelpi16]

Great. That worked. Thank you.

[HiTechCoach]

You're welcome.

Glad Paul and I could assist.