isloaded method 1

[Machiaveli]

Hello,

I wonder if somebody has a example of a isloaded code. I have a form that i use when clicking from another form. When adding a record and close the form, i use a requery method to refresh the first form. Now here's the problem, when i use the second form directly and adding some records, i get an error that it cannot find the 'first form'. I definitly think i need a isloaded code but i don't know how to use it.

Can someone help me?

 

[TonyJollans]

Hi Machiaveli,

If you have A2K, you can use IsLoaded directly ..

[blue]

CurrentProject.AllForms!

YourForm

.IsLoaded

[/blue] (True/False)

In A97, you need to code the function yourself, but there is some help about it. Here is a cut and paste of it from the NorthWind Database:

[blue]

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

[/blue]

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.