Advanced Search

Return to Snippet

Revision: 26731
at May 8, 2010 13:45 by CaptainProton
Initial Code 
Private Function formIsLoaded(formName As String) As Boolean
  Dim loop As Form

  For Each loop In Forms
    If loop.Name = formName Then
      formIsLoaded = True
      Exit Function
    End If
  Next

  formIsLoaded = False
End Function
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
This function returns True if the specified form is open in form view or datasheet view.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
formIsLoaded(String) As Boolean

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
form

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic