Advanced Search

Return to Snippet

Revision: 24430
at March 1, 2010 15:58 by CaptainProton
Initial Code 
Private Function queryExists(name As String) As Boolean
  Dim queryDef As DAO.queryDef

  For Each queryDef In CurrentDb.QueryDefs
    If queryDef.name = name Then
      queryExists = True
      Exit Function
    End If
  Next

  queryExists = False
End Function
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
This method checks whether a query with the given name exists.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
queryExists(String) As Boolean

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
query

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic