如何检查表是否存在[求助]

盗到稻

如在则删之，不在则建之,请高手指点

zhengjialon

本站N多，请搜索。

盗到稻

本人搜索“检查and表“没找出来，搜索”检查“出来很多，但没发现一个相之的。

徐阿鹏

代码是。。。。谁的！（反正不是我写的）
vBA中如何判断某个表是否存在
Public Function isTable(strTableName As String) As Boolean
    Dim tbl As DAO.TableDef
    isTable = False
    For Each tbl In CurrentDb.TableDefs
        If tbl.Name = strTableName Then  ’（strTableName可改为你要查询的表名）
‘加入如果存在的事件
              isTable = True
            Exit Function
        End If
    Next
End Function

盗到稻

谢谢您黑侠阿鹏！

盗到稻

在帮助那里找了一个。DAO不会用，还得找ADO看看，不过意思好像相差都不太远
Public Sub AllTables()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables
        If obj.Name = "200401" Then

            Debug.Print obj.Name
        End If
    Next obj
End Sub

盗到稻

不过我在ADO对象模型中找不到Table字眼，谁能教教我？