如何用SQL語句來判斷已知表是否存在

如何判斷庫中已知表是否存在今日受人之托，幫他解決這個問題，代碼為通常的引用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()
fExistTable
End Sub

用該事件出現‘參數不可選’的錯誤。仔細研究，發現fExistTable缺少參數，即已知表名沒有在代碼中反應。

修改為：

Private Sub 命令0_Click()
fExistTable（”需判斷的已知表名”）
End Sub

End Sub不再報錯。仔細分析，其實是用 ”已知表名” 通過Dao判斷數據庫中是否存在，如果fExistTable的值為True就是存在，否則就是不存在。

解決問題之余，想起Access數據庫也有系統表，存放有對象名，可否做一查詢來判定？

經驗證：

SELECT Count(*) AS Qty
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "需判斷的已知表名"));

可以實現需求。如果Qty>0,就表示表已存在，否則就不存在。