[AccessD] OT - Visual Basic 6.0 - Is Form Open

Maybe this


Private Sub Form_Load()

If IsLoaded("Form1") = True Then
MsgBox "Yep, loaded"
End If

End Sub

Private Function IsLoaded(ByVal FormName As String) As Boolean

Dim f As Form

'check all open forms
For Each f In Forms

If f.Name = FormName Then

'yep, form is loaded
IsLoaded = True

'no need to loop again...
Exit For

End If

Next ' f

End Function

Richard

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
paul.hartland at fsmail.net
Sent: 17 June 2005 12:43
To: accessd
Subject: [AccessD] OT - Visual Basic 6.0 - Is Form Open


To all,

Does anyone know how to find out if a form is open in a Visual Basic 6.0
application ?

Thanks in advance for any help on this.

Paul Hartland
Database Developer

-- 

Whatever you Wanadoo:
http://www.wanadoo.co.uk/time/

This email has been checked for most known viruses - find out more at:
http://www.wanadoo.co.uk/help/id/7098.htm
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com