Compile error. Sub of function not defined

[plavookins]

I created report and add code (see picture) on event ON OPEN to open form to supply parameter to report but I got this error.

[RuralGuy]

Have you used this "IsLoaded" function before?

[plavookins]

No, never. I copied this code from some microsoft links...

[RuralGuy]

You need to copy the code for the function as well. If you can't find it I believe I have it somewhere.

[plavookins]

Found the problem. I need to create a new module to declare variable bInReportOpenEvent (using a Dim statement)

[RuralGuy]

This function belongs in a Standard Module:

Public Function IsLoaded(ByVal strFormName As String) As Boolean
'-- Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
    
End Function

[plavookins]

Thanks RuralGuy for your help

[RuralGuy]

Are you ready to use the Thread Tools and mark this thread as Solved?