Why does this query return a 3265 error?

[AHJ1]

Can someone explain to me why this code works, but it does not work when I uncomment

Function GetCountOfRecs() As Integer
On Error GoTo err_GetCount
Dim strSQL As String
Dim intCount As Integer

intCount = ReturnSingleFieldData("qryCountOfMyDataAggregated", "CountOfID")
'intCount = ReturnSingleFieldData("qryActiveMyDataAgg", "CountOfID")
GetCountOfRecs = intCount
'debug.print "Count of Active Records = " & GetCountOfRecs

Exit Function
err_GetCount:
ErrBox "getting the count of active records in MyDataAggregated"
End Function

Here are the two SQL Statements

SELECT Count(MyDataAggregated.ID) AS CountOfID
FROM MyDataAggregated
GROUP BY MyDataAggregated.fInactive, MyDataAggregated.fSignedAndReady
HAVING (((MyDataAggregated.fInactive)=False) AND ((MyDataAggregated.fSignedAndReady)=True));

and

SELECT Count(MyDataAggregated.ID) AS CountOfID
FROM MyDataAggregated;

Obviously, it has something to do with the HAVING Clause.

 

[lameid]

ReturnSingleFieldData seems to be a user defined function... your error is likely in there.

If you right click it and hit definition it should take you to it.

If you need further help, please post that code.

 

[AHJ1]

Lameid,

Thanks for your response. Here's the code to that function. I do have a workaround, but I'd prefer not to use it.

Function ReturnSingleFieldData(strQueryName As String, strFieldName As String, _
Optional strParameterName1 As String, Optional varParmValue1 As Variant, _
Optional strParameterName2 As String, Optional varParmValue2 As Variant, _
Optional datDue As Date) As Variant

    Dim strMsg As String
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim strParameterName As String
  
    Set qdf = DBEngine(0)(0).QueryDefs(strQueryName)
    If Len(strParameterName1) >= 1 Then
        qdf.Parameters("" & strParameterName1 & "") = "" & varParmValue1 & ""
        If Len(strParameterName2) >= 1 Then
            qdf.Parameters("" & strParameterName2 & "") = "" & varParmValue2 & ""
        End If
    End If
    Set rst = qdf.OpenRecordset()
        If Not rst.EOF Then
            If Not IsNull(rst(strFieldName)) Then
                  ReturnSingleFieldData = rst(strFieldName).Value
                'End If
            Else
                ReturnSingleFieldData = ""
            'End If 'Added 12.1.08
            End If
        Else
            ReturnSingleFieldData = datDue
        End If
    qdf.Close
    rst.Close
    Set qdf = Nothing
    Set rst = Nothing
Exit Function
err_Import:
    Select Case Err.Number
        'Case 3021 'No current record
            'ReturnSingleFieldData
            'Resume Next
        Case 3265
             ReturnSingleFieldData = ""
        Case Else
            errbox "returning the value of a single field in a table from the function ReturnSingleFieldData."
    End Select
    Exit Function
End Function

 

[AHJ1]

You were right. Thanks. Have a star!
I made the mistake of grabbing code from a different project without totally proofing it. In this snippet I have a datDue
I changed it to a zero.

Set rst = qdf.OpenRecordset()
        If Not rst.EOF Then
            If Not IsNull(rst(strFieldName)) Then
                  ReturnSingleFieldData = rst(strFieldName).Value
                'End If
            Else
                ReturnSingleFieldData = ""
            'End If 'Added 12.1.08
            End If
        Else
            ReturnSingleFieldData = datDue
        End If

 ReturnSingleFieldData = 0

Works like a charm now.

 

[lameid]

I'm glad you figured it out