Can't test code - "Debug" - "Run to Cursor"

[GraeagleBill]

In wanting to simply test some code, I can't even get "Debug" to "Run to Cursor" when placing the cursor at the "End Sub" statement. What would block that action?

Private Sub TestingOnly(Cancel As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' Sub-Report RecordSource will automatically get the records corresponding to the "New" and
' "Renewal".  However, we need to get the count of each for the main report and calculate
' the corresponding dollar amount.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Dim intNoN As Integer
intNoN = PCCodeCount("N", "01/21/2016")

End Sub
Public Function PCCodeCount(ChrCode As String, PerDate As Date)
PCCodeCount = DCount("[PCCode]", "tblMembers", "([DOPmt] > #" & PerDate & "#)")

End Function

[CJ_London]

the code needs to be in a standard module - not a form module

[GraeagleBill]

Yes, this is in a standard module.

[CJ_London]

in that case it is because your sub has parameters


create a new sub

Private sub test

    testingonly false

end sub

and run that - or remove the parameter - you are not using it anyway

[GraeagleBill]

HaHa That code got deleted in that its permanent location is in the "Activate" event of the report we discussed in an earlier thread.

And yes, now that you point out about parameters it's clear that that was the problem. Having taken that segment of code from "The Report's" Open event and just changing the name of the sub didn't also remove the normal parameter list of an Open event.

I might end this day on a happy note!
Thanks,
Bill