devxlogo

Use IsLoaded to Check for Forms

Use IsLoaded to Check for Forms

The IsLoaded function tests to determine if any instances of a form are already loaded or exist in memory:

 If IsLoaded("frmMyForm") Then	Debug.Print "frmMyForm is loaded"End IfPublic Function IsLoaded(sForm As String)	Dim Frm As Form	For Each Frm In Forms		If Frm.Name = sForm Then			IsLoaded = True			Exit For		End If	NextEnd Function

devx-admin

Share the Post: