IsLoaded Form Function

This Function checks if a specified Form is loaded
by looping through the forms collection
it returns TRUE if it is and FALSE if it is not
you can decide what you want according to the
return value e.g accessing its properties or methods or controls ,...

Original Author: Said Sowiny

Code


Public Function IsLoaded(ByVal strForm As String)As Boolean


Dim frmloaded As Form

IsLoaded = False

If strForm = "" Then Exit Function

For Each frmloaded In Forms


If frmloaded.Name = strForm Then


IsLoaded = True

Exit Function

End If

Next

End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 111 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.