Number of records in Query

[Pele]

Below is a code I was using to try and find out if a query
linked to a form had any record to display. I was going to
link the query to a macro that will run when a command
button called "Analysis" is run. Unfortunately, the code
keeps on giving an error saying "Type Mismatch".

Can anybody what to do?

Toks




Public Sub Arethereanyrecords(frmName As String)
If Forms(frmName).RecordsetClone.RecordCount = 0 Then
MsgBox "Your query has returned no records....You will
need to increase your query limit."
End If
End Sub

Public Function fnArethereanyrecords(frmName As String)
Call Arethereanyrecords
End Function