国内最全IT社区平台 联系我们 | 收藏本站
华晨云阿里云优惠2
您当前位置:首页 > 数据库 > access > 在Access获取程序所在的目录及全名

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

来源:程序员人生   发布时间:2014-03-25 08:19:25 阅读次数:2549次

  在Access编程中经常会需要获取程序所在的目录及全名下列的各种方法可实现这个功能

  不过需注意 CurrentProject及CodeProject不适合Access及以前的版本

  另外需注意 CurrentProject及CodeProject的区别

  一般情况下如果你的MDB或ADP只使用一个文件两者指同一个对象但如果你的MDB引用了另一个MDE文件且这段代码是在MDE里执行的话则currentproject指你的第一个MDBcodeproject 指的是你引用的MDE文件这种特性用在多模块通用模块开方中非常好我将其用于企业管理系统的开发当中这样可使用多个MDE文件来分开实现不同的功能而各个MDE又可组合成一个强大的系统(如ERP)

  有关详细的MDE相互调用及如果跨MDE平级MDE上下级MDE相互调用窗体及报表的方法可发邮件给我tmtony@cncom做进一步解释

  ? CurrentProjectFullName
D:frontaccesstmtonyAboutPathmdb
? CurrentProjectName
tmtonyAboutPathmdb
?CurrentProjectPath
D:frontaccess
?CurrentdbName
D:frontaccesstmtonyAboutPathmdb
?CodeprojectName
tmtonyAboutPathmdb
? CodeProjectFullName
D:frontaccesstmtonyAboutPathmdb
? CodeProjectpath
D:frontaccess

  读取各个对象的名称

  Dim obj As AccessObject
For Each obj In CurrentProjectAllDataAccessPages
   DebugPrint objName
Next obj
For Each obj In CurrentProjectAllForms
   DebugPrint objName
Next obj
For Each obj In CurrentProjectAllMacros
   DebugPrint objName
Next obj
For Each obj In CurrentProjectAllModules
    DebugPrint objName
Next obj
For Each obj In CurrentProjectAllReports
   DebugPrint objName
Next obj

生活不易,码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠
程序员人生
------分隔线----------------------------
分享到:
------分隔线----------------------------
关闭
程序员人生