I'm trying to open a recordset based on a query that uses TempVars. I get the Data Type Conversion Error and can't figure why. Any help would be appreciated.
CODE:
Sub test()
iRet = UniqueCount("EmployeeID", "qryERRsForReviewBonusRound")
MsgBox iRet
End Sub
Public Sub CreateTempVariables()
TempVars.Add "FacLevel", ""
End Sub
Public Function UniqueCount(sFieldName As String, sDomain As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim strSql As String
'Initialize to return Null on error.
UniqueCount = Null
'Set db = DBEngine(0)(0)
'Count distinct values.
Set qdf = CurrentDb.QueryDefs(sDomain)
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm
strSql = "SELECT " & sFieldName & " FROM " & sDomain & " GROUP BY " & sFieldName & ";"
Set rs = qdf.OpenRecordset(strSql)
If rs.RecordCount > 0& Then
rs.MoveLast
End If
UniqueCount = rs.RecordCount 'Return the number of distinct records.
rs.Close
End Function