如何在窗体用VBA来判断数据表的存在

kupe　发表于：2010-03-19 02:40:16 　

不知哪位高手能帮忙解决,如何在窗体用VBA来判断数据表的存在.谢谢了.

小龙女发表于：2010-03-19 08:04:23

以下函数当指定表存在时将返回true,表不存在的时候返回falseFunction 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

Top

andymark 发表于：2010-03-19 09:30:57

用ACCESS对象内置了TABLE属性

Function ExistTable(TableName As String) As Boolean
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables
        If obj.Name = TableName Then
            ExistTable = True
        End If
    Next obj

End Function

用法:

if ExistTable("表1") then

msgbox "表1已存在"

else

msgbox "表1不存在"

end if

Top

kupe 发表于：2010-03-20 05:50:15

谢谢各位的帮忙

Top

kupe 发表于：2010-03-20 06:43:16