在access编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这个功能。
不过，需注意CurrentProject及CodeProject不适合access97及以前的版本。

另外，需注意CurrentProject及CodeProject的区别
一般情况下，如果你的MDB或ADP只使用一个文件，两者指同一个对象。但如果你的MDB引用了另一个MDE文件。且这段代码是在MDE里执行的话，则currentproject指你的第一个MDB，codeproject指的是你引用的MDE文件。这种特性用在多模块，通用模块开方中非常好，我将其用于企业管理系统的开发当中，这样，可使用多个MDE文件来分开实现不同的功能，而各个MDE又可组合成一个强大的系统（如ERP）。
有关详细的MDE相互调用及如果跨MDE、平级MDE、上下级MDE相互调用窗体及报表的方法，可发邮件给我：tmtony@21cn.com 做进一步解释

? CurrentProject.FullName
D:\front\access\tmtonyAboutPath.mdb

? CurrentProject.Name
tmtonyAboutPath.mdb

?CurrentProject.Path
D:\front\access

?Currentdb.Name
D:\front\access\tmtonyAboutPath.mdb

?Codeproject.Name
tmtonyAboutPath.mdb

? CodeProject.FullName
D:\front\access\tmtonyAboutPath.mdb

? CodeProject.path
D:\front\access

读取各个对象的名称
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

(责任编辑：admin)

• ·两个未公开的ACCESS方法的使用技巧
• ·如何拆分复制的Access 97数据库
• ·两个未公开的ACCESS方法的使用技巧
• ·用Access 2000有效地组织班级管理
• ·数据在Access与Office组件间自由流动
• ·Access＂智库＂培训--高效设计 敏捷开
• ·Access查询的基本知识(二)(Office免费
• ·Access设置宏的安全等级
• ·Access查询的基本知识(Office免费公开
• ·四种用代码打开外部Access(MDB)的方法
• ·access操作或事件已被禁用模式阻止的解
• ·简述vba字符串，函数，表达式等基础术
• ·Access VBA 开发公开课讲座
• ·Access设置信任位置
• ·Access应用程序应注意的几个问题
• ·简析能判断Access版本的窗体