在Access获取程序所在的目录及全名

在Access编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这个功能。 不过，需注意 CurrentProject及CodeProject不适合Access97及以前的版本。 另外，需注意 CurrentProject及CodeProject的区别 一般情况下，如果你的MDB或ADP只使用一个文

　在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做进一步解释

易森网络企业版

如果您是新用户，请直接将本程序的所有文件上传在任一文件夹下，Rewrite 目录下放置了伪静态规则和筛选器，可将规则添加进IIS，即可正常使用，不用进行任何设置；(可修改图片等)默认的管理员用户名、密码和验证码都是：yeesen系统默认关闭，请上传后登陆后台点击“核心管理”里操作如下:进入“配置管理”中的&ld

0

查看详情

? 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