以下列出一个数据库中所有的表名:Dim d As dao.Database
Dim i As Integer
Set d = dao.DBEngine.OpenDatabase("...")
For i = 0 To d.TableDefs.Count - 1
Debug.Print d.TableDefs(i).Name
Next
Dim i As Integer
Set d = dao.DBEngine.OpenDatabase("...")
For i = 0 To d.TableDefs.Count - 1
Debug.Print d.TableDefs(i).Name
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货