Attribute and IsLoaded

[time2hike]

Hi, I have code that works in another database, 10 miles away, that I am trying to use in this database. The Code lets VBA know if the form is loaded.

Attribute VB_Name = "modIsLoaded"
Option Compare Database
Option Explicit
Public bInReportOpenEvent As Boolean    ' Is report in the Open event?
Public bInFormOpenEvent As Boolean      ' Is Form in the open event?
 
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

I am getting a compile error on the first line of this code.

Attribute VB_Name = "modIsLoaded"

I think the error is because I am missing a reference to the library that recognizes Attribute. The code does not work without that line. Do you see anything else that might be the problem? Do you know what library I need to reference or if there is a better way to resolve this?

[TheSmileyCoder]

This line

Attribute VB_Name = "modIsLoaded"

simply contains the name of the module. Usually it is not visible as part of the module, but shown on the left hand side of the VBE, as a property.

My guess is that you have exported the modIsLoaded from your database, and then instead of importing it into the new database, you have opened the file, and copied the contents in.

Try to import the module instead, and see if that doesn't solve your problems.