I have this function that keeps returning a run time error.
Error: "Run-Time Error '3061' Too few parameters. Expected 5"
The query referenced has 6 fields, 5 of which contain criteria. The current status of the query has records and is not null. The error throws on the "set rs" line. As you can see, I haven't given any instruction to the function as of yet. Not sure if that matters.
Code:
Function lastHitDate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM qryclumpmatch"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
End Function
Thanks
Lefty