什么是最简单的办法：判断某个表是否存在

godfrey

我是菜鸟
想判断一个固定名称的表或者查询是否存在，有很多表和查询
不要告诉我做一个循环啊大哥

zhengjialon

搜索一下旧贴。返加系统表里的内容。

zhengjialon

'本例用DAO查找数据库中某一表是否存在。
Function fExistTable(strTableName As String) As Integer
    Dim db As Database
    Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.count - 1
        If strTableName = db.TableDefs(i).name Then
            'Table Exists
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function

Private Sub 命令0_Click()
    MsgBox fExistTable("kk")
End Sub