一个函数,获取Access数据库的全部对象。
Public Function GetAllinDB()
Dim i As Integer, tdf As TableDef, qdf As QueryDef
Debug.Print "--------------------所有表-------------"
For i = 0 To CurrentDb.TableDefs.Count - 1
Debug.Print CurrentDb.TableDefs(i).Name
Next i
Debug.Print "--------------------所有查询-------------"
For i = 0 To CurrentDb.QueryDefs.Count - 1
Debug.Print CurrentDb.QueryDefs(i).Name
Next i
Debug.Print "--------------------所有窗口-------------"
For i = 0 To CurrentProject.AllForms.Count - 1
Debug.Print CurrentProject.AllForms.Item(i).Name
Next i
Debug.Print "--------------------所有模块-------------"
For i = 0 To CurrentProject.AllModules.Count - 1
Debug.Print CurrentProject.AllModules.Item(i).Name
Next i
Debug.Print "--------------------所有报表-------------"
For i = 0 To CurrentProject.AllReports.Count - 1
Debug.Print CurrentProject.AllReports.Item(i).Name
Next i
End Function
Public Function GetAllinDB()
Dim i As Integer, tdf As TableDef, qdf As QueryDef
Debug.Print "--------------------所有表-------------"
For i = 0 To CurrentDb.TableDefs.Count - 1
Debug.Print CurrentDb.TableDefs(i).Name
Next i
Debug.Print "--------------------所有查询-------------"
For i = 0 To CurrentDb.QueryDefs.Count - 1
Debug.Print CurrentDb.QueryDefs(i).Name
Next i
Debug.Print "--------------------所有窗口-------------"
For i = 0 To CurrentProject.AllForms.Count - 1
Debug.Print CurrentProject.AllForms.Item(i).Name
Next i
Debug.Print "--------------------所有模块-------------"
For i = 0 To CurrentProject.AllModules.Count - 1
Debug.Print CurrentProject.AllModules.Item(i).Name
Next i
Debug.Print "--------------------所有报表-------------"
For i = 0 To CurrentProject.AllReports.Count - 1
Debug.Print CurrentProject.AllReports.Item(i).Name
Next i
End Function
转自:枕善居