elmagd2004

Option Compare Database Function RcNumQ1(mID As Variant, fldName As String) As Variant Dim RstClone As Recordset Dim Fld As Field Dim i As Long RcNumQ1 = Null If IsNull(mID) Then Exit Function Set RstClone = CurrentDb.QueryDefs("name of query").OpenRecordset If RstClone.RecordCount = 0 Then Exit Function Set Fld = RstClone.Fields(fldName) With RstClone .MoveFirst Do Until .EOF i = i + 1 If Fld = mID Then Exit Do .MoveNext Loop End With RstClone.Close RcNumQ1 = i End Function