How to determine whether a table exists in Microsoft Access using VBA, and there are two methods available.

    Function searchTable(TableName As String) As Boolean
    searchTable = False  '默认不存在
    Dim tbl As DAO.TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.Name = TableName Then
            searchTable = True  '如果存在，返回 Ture，并退出循环
            Exit For
        End If
    Next
    End Function
    
    
      
      
      
      
      
      
      
      
      
      
    

    Function test()
    MsgBox TableIsIn("测试表")
    End Function
    
    
    Function TableIsIn(TableName As String)