如何判断库中已知表是否存在？代码为通常的引用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,就表示表已存在，否则就不存在。