[AccessD] still troubles with IsLoaded

Hi Pedro

That (see below) is your explanation. You have probably used
utility.mda with A97 (I don't, that's why I couldn't find it), while you
would do it differently in newer versions of Access.

This:
  booOpen = CurrentProject.AllForms("frmVestigingenForm").IsLoaded 
works in Access XP/2002 as well; don't know about Access 2000.

It behaves, though, somewhat differently than IsLoaded() because it
throws an error if the form doesn't exist at all.

/gustav

>>> cyx5 at cdc.gov 17-12-2004 19:50:15 >>>
I hear that there is an isloaded function that is new to Access 2003.
The syntax would be:
If CurrentProject.AllForms("frmVestigingenForm").IsLoaded 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
MartyConnelly
Sent: Friday, December 17, 2004 1:39 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] still troubles with IsLoaded


Here is the IsLoaded function that used to be in utility.mda that was
an

automatic addin for Access 97
This is a copy of routine  from northwind.mbd

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


pedro at plex.nl wrote:

>Hello Group,
>
>i keeping getting an error on the IsLoaded. "Sub or function not
defined"
>This was working in A97, but in 2003 it is giving me troubles.
>
>i tried to Dim al objects, with no result.
>
>I can't figure out why
>
>Please help
>
>Pedro Janssen
>
>
>
>Private Sub pl_Form_Current()
>On Error GoTo Err_Form_Current
>
>    Dim strDocNaam As String
>    Dim Koppelcriterium As String
>        
>        strDocNaam = "Produktenlijst"
>        Koppelcriterium = "[Levcode] = Forms![Lev]![Levcode]"
>   
>    If IsNull(Me![LEVNAAM]) Then
>        Exit Sub
>    ElseIf IsLoaded("Produktenlijst") Then
>        DoCmd.OpenForm strDocNaam, , , Koppelcriterium
>    End If
>
>Exit_Form_Current:
>    Exit Sub
>    
>Err_Form_Current:
>    MsgBox Err.Description
>    Resume Exit_Form_Current
>
>End Sub