如何判断表已在数据库中了！

Question

用eof和bof事件
Dim BiaoMing As String '定义你要检测的表
Data1.RecordSource = "select * from" & BiaoMing
If Data1.BOFAction Then
msgbox "没有表"& BiaoMing
end if

Answer 1

假设 db 是你用 DAO 

Answer 2

不好意思，一不小心就提交了。假设 db 是你用 DAO 打开的 database 。以下显示数据库中所有的表名。Dim db As DAO.Database
set db=dbengine.OpenDatabase(数据库)
For i = 0 To db.TableDefs.Count - 1
    Debug.Print db.TableDefs(i).Name
Next