For i = 0 To db.TableDefs.Count - 1
If (Mid(db.TableDefs(i).name, 1, 2)<> "MS") Then
CurrentDb.Execute "insert into result values('" &db.TableDefs(i).name & "'," &db.TableDefs(i).Fields.Count & ","& db.TableDefs(i).RecordCount &")"
End If
Next
其中：db.TableDefs(i).name 表名
db.TableDefs(i).Fields.Count 字段数
db.TableDefs(i).RecordCount 记录数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024