用VBA语句怎么判断一个指定的表已经存在！

zhichaochen

用VBA语句怎么判断一个指定的表已经存在！

tanhong

'这是本人写的两个检测表是否存在的一个自定义函数,仅供参考
Public Function Btbl (strTblName As String) As Boolean
Dim I As Integer
Dim tdf As TableDef

Btbl=False
'遍历所有表,判断指定表名是否存
For I = 0 To CurrentDb.TableDefs.Count - 1
        If CurrentDb.TableDefs(I).Name = strTblName Then   
           Btbl =True '存在则真
           Exit for
        End If
Next I
End Function



'代码也可以这样写
Public Function Btbl (strTblName As String) As Boolean
Dim I As Integer
Dim tdf As TableDef
Dim M_Count As Intrger
'判断指定表名是否存
For I = 0 To CurrentDb.TableDefs.Count - 1
        If CurrentDb.TableDefs(I).Name = strTblName Then
           M_count=M_count+1
        End if     
Next I
'输入值真则存,假则不存在
If M_count > 0 then  
   Btbl = True
Else
   Btbl = False
End if
End Function

[ 本帖最后由 tanhong 于 2008-6-21 09:34 编辑 ]

tz-chf

打开记录集，捕获到特定的错误号，这个表就不存在。

stone0823

还有一种方法

Public Function IsTableExist(tableName As String) As Boolean
    Dim i As Integer
    Dim result As Boolean
    result = False
    For i = 0 To Application.CurrentData.AllTables.Count - 1
        If Application.CurrentData.AllTables(i).Name = tableName Then
            result = True
            Exit For
       End If
    Next
   
   IsTableExist = result
End Function

Henry D. Sy

1. 
   
2. 
   
3. Public Function IsTableExist(strTableName As String) As Boolean
   
4.     Dim tbl As DAO.TableDef
   
5.     IsTableExist = False
   
6.     For Each tbl In CurrentDb.TableDefs
   
7.         If tbl.Name = strTableName Then
   
8.             IsTableExist = True
   
9.             Exit Function
   
10.         End If
    
11.     Next
    
12. End Function
    

复制代码

tanhong

捕获错误的方法也不错!

fan0217

方法还有：读取系统表，系统表中没有记录表就存在。