reference problem please help

[chad1222]

Hi guys, I am trying to create a small database which im basing on one of the included ones called "data entry" . When i use some of the form/report code from the VB editor it halts at a command called IsLoaded.
The included database has the isloaded function loaded apparently because when i type and use the ctr.+space it shows up but when i go back to my database it is not there. I have checked the references and both DBases have the exact same references checked. I am not sure what is going on here as one Dbase has a function that the other does not apparently have. There are not included modules with that function either. Does anyone know what is going on? How can i get this "IsLoaded" function to work with my Dbase?

Chad

 

[bat17]

This code comes from the "soulutions" database and is probably what you need

 Function IsLoaded(strFrmName As String) As Boolean
    
    '  Determines if a form is loaded.
    
    Const conFormDesign = 0
    Dim intX As Integer
    
    IsLoaded = False
    For intX = 0 To Forms.Count - 1
        If Forms(intX).FormName = strFrmName Then
            If Forms(intX).CurrentView <> conFormDesign Then
                IsLoaded = True
                Exit Function  ' Quit function once form has been found.
            End If
        End If
    Next

End Function

HTH

Peter