原创力文档- 1、本文档共1页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
在 Access 编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这
个功能。
不过，需注意 CurrentProject 及 CodeProject 不适合 Access97 及以前的版本。
另外，需注意 CurrentProject 及 CodeProject 的区别
一般情况下，如果你的 MDB 或 ADP 只使用一个文件，两者指同一个对象。但如果你
的 MDB 引用了另一个 MDE 文件。且这段代码是在 MDE 里执行的话，则 currentproject 指
你的第一个 MDB ，codeproject 指的是你引用的 MDE 文件。这种特性用在多模块，通用模
块开方中非常好，我将其用于企业管理系统的开发当中，这样，可使用多个 MDE 文件来分
开实现不同的功能，而各个 MDE 又可组合成一个强大的系统（如 ERP）。
? CurrentProject.FullName
D:frontaccesstmtonyAboutPath.mdb
? CurrentProject.Name
tmtonyAboutPath.mdb
?CurrentProject.Path
D:frontaccess
?Currentdb.Name
D:frontaccesstmtonyAboutPath.mdb
?Codeproject.Name
tmtonyAboutPath.mdb
? CodeProject.FullName
D:frontaccesstmtonyAboutPath.mdb
? CodeProject.path
D:frontaccess
读取各个对象的名称
Dim obj As AccessObject
For Each obj In CurrentProject.AllDataAccessPages
Debug.Print obj.Name
Next obj
For Each obj In CurrentProject.AllForms
Debug.Print obj.Name
Next obj
For Each obj In CurrentProject.AllMacros
Debug.Print obj.Name
Next obj
For Each obj In CurrentProject.AllModules
Debug.Print obj.Name
Next obj
For Each obj In CurrentProject.AllReports
Debug.Print obj.Name
Next obj
更多信息请查看 IT 技术专栏
文档评论（0）