目的是得到数据表的字段名内容try:
i = CurrentData.AllTables.Count
For j = 0 To i - 1
MsgBox CurrentData.AllTables(j).Name
Set rt = CurrentDb
Set fg = rt.TableDefs(CurrentData.AllTables(j).Name).Fields
If Mid(CurrentData.AllTables(j).Name, 1, 2) <> "MS" Then
For Each gh In fg
MsgBox gh.Name
Next
End If
Next
Next
i = CurrentData.AllTables.Count
For j = 0 To i - 1
MsgBox CurrentData.AllTables(j).Name
Set rt = CurrentDb
Set fg = rt.TableDefs(CurrentData.AllTables(j).Name).Fields
If Mid(CurrentData.AllTables(j).Name, 1, 2) <> "MS" Then
For Each gh In fg
MsgBox gh.Name
Next
End If
Next
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货