关于VBA获取某个表信息 及 获取当前数据库信息 的问题

olderdream2007@

1. 如何用VBA获取某个表所有字段的名称及 字段类型？

2.如何用VBA获取当前ACCESS文件（当前数据库）中所有对象的名称及类型（也就是活的 有哪些表 有哪些窗体 有哪些报表等，返回他们的名称）


上面的问题是2个独立的问题  请高人指点一下  谢谢

Henry D. Sy

搜索论坛！好多例子

Henry D. Sy

1. Option Compare Database
   
2. Option Explicit
   
3. '表
   
4. Private Sub Command0_Click()
   
5. Dim tbl As TableDef
   
6. Dim strName As String
   
7. For Each tbl In CurrentDb.TableDefs
   
8. If Left$(tbl.Name, 4) <> "Msys" And Left$(tbl.Name, 1) <> "~" Then
   
9. strName = strName & tbl.Name & Chr(13)
   
10. End If
    
11. Next
    
12. MsgBox strName
    
13. End Sub
    
14. '窗体
    
15. Private Sub Command1_Click()
    
16. Dim obj As AccessObject, dbs As Object
    
17. Set dbs = Application.CurrentProject
    
18. For Each obj In dbs.AllForms
    
19. MsgBox obj.Name
    
20. Next obj
    
21. End Sub
    
22. '报表
    
23. Private Sub Command2_Click()
    
24. Dim obj As AccessObject, dbs As Object
    
25. Set dbs = Application.CurrentProject
    
26. For Each obj In dbs.AllReports
    
27. MsgBox obj.Name
    
28. Next obj
    
29. End Sub
    
30. 
    

复制代码

olderdream2007@

08.If Left$(tbl.Name, 4) <> "Msys" And Left$(tbl.Name, 1) <> "~" Then

谢谢斑竹的指点 太强悍了  ，就是上边这行代码不理解？为话题要判断呢

Henry D. Sy

olderdream2007@ 发表于 2013-1-26 11:24
08.If Left$(tbl.Name, 4)  "Msys" And Left$(tbl.Name, 1)  "~" Then

谢谢斑竹的指点 太强悍了  ，就是 ...

因为还存在着系统表，除非你连系统表也要显示出来，否则就要排除！

olderdream2007@

另外LEFT函数后面为何要加上$ 符号（Left$  ）  请指点

olderdream2007@

Henry D. Sy 发表于 2013-1-26 11:16

谢谢斑竹的指点，我的第一个问题搜过论坛好像没看到。可否指点一下

另外  LFFT函数后为何要加$ 符号（Left$  ）

zhuyiwen

你不加也没关系

olderdream2007@

谢谢高人指点  明白了

“1. 如何用VBA获取某个表所有字段的名称及 字段类型？” 这个问题是否有答案呢  谢谢

huangli0356

我也学到了不少..