Solved
runtime error 3061 too few parameters expected one
Posted on 2011-03-09
I am trying to execute this code:
Function FixLabels()
If Not IsNull(DLookup("PatientID", "Qry_OverdueAppointments")) Then
Dim dbs As Database
Dim rs As Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Qry_OverdueAppointments")
MsgBox "The total for " & rs!PatientName & " for the " & rs!CountofAppointmentDate & "is " & rs!PatientID
rs.Close
dbs.Close
Set rs = Nothing
Set dbs = Nothing
Forms!Form6!OverdueLab.FontBold = True
Forms!Form6!OverdueLab.ForeColor = 195
Else
Forms!Form6!OverdueLab.FontBold = False
Forms!Form6!OverdueLab.ForeColor = 0
End If
End Function
I get the dreaded error. 3061
Any thoughts?
Scott