Question about vba referrance 1

[Lavenderchan]

Hi I've got a preview report that I've added to a form but I don't want it open and where else so I added this code
Private Sub Report_Open(Cancel As Integer)
If Not IsLoaded("Tracking Log") Then
MsgBox "Open this report using the Preview button on the Tracking Log form."
Cancel = True
End Sub
but its saying sub or function isn't found. I was wondering why the IsLoaded might not work. I did some reading to my understanding they added something to 2003 access with the IsLoaded but I'm not sure why its effecting my code now. Any insight would be helpful.
Keri

 

[JBinQLD]

G'day keri,

Add this under your code or in a module and you should be golden

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

Good luck,

JB

 

[PHV]

Replace this:
If Not IsLoaded("Tracking Log") Then
with this:
If Not CurrentProject.AllForms("Tracking Log").IsLoaded Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Lavenderchan]

thank you so very much it works.

 

[JBinQLD]

Too easy mate, no drama

JB