2012年计算机二级Access考前重点分析（9）

会计考友

在Access编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这个功能。 　　不过，需注意CurrentProject及CodeProject不适合Access97及以前的版本。
7 w: F* U  M/ ]  w8 x( |1 f　　另外，需注意CurrentProject及CodeProject的区别
　　一般情况下，如果你的MDB或ADP只使用一个文件，两者指同一个对象。但如果你的MDB引用了另一个MDE文件。且这段代码是在MDE里执行的话，则currentproject指你的第一个MDB，codeproject指的是你引用的MDE文件。这种特性用在多模块，通用模块开方中非常好，我将其用于企业管理系统的开发当中，这样，可使用多个MDE文件来分开实现不同的功能，而各个MDE又可组合成一个强大的系统（如ERP）。
　　有关详细的MDE相互调用及如果跨MDE、平级MDE、上下级MDE相互调用窗体及报表的方法，可发邮件给我
6 B/ z/ F  S6 _. |1 R　　CurrentProject.FullName
  g1 v' {( {0 ?3 D6 x+ B* l　　D:frontaccesstmtonyAboutPath.mdb
　　CurrentProject.Name
　　tmtonyAboutPath.mdb
5 ?  i: N1 a  I& P) Y9 C　　CurrentProject.Path
　　D:frontaccess
% E  ]! ]9 s/ ^" V6 ~2 Q* K　　Currentdb.Name
　　D:frontaccesstmtonyAboutPath.mdb
　　Codeproject.Name
% l! p; w. J! G- c2 O# n
# [/ w) _. I+ U3 W$ D! y- f　　tmtonyAboutPath.mdb

会计考友

</p>　　CodeProject.FullName
* }1 i$ F7 m6 m　　D:frontaccesstmtonyAboutPath.mdb
　　CodeProject.path
+ }- m( g0 w2 `$ G( g$ y$ x' ~3 K　　D:frontaccess
　　读取各个对象的名称
. F6 w$ `6 S" t& E　　Dim obj As AccessObject
　　For Each obj In CurrentProject.AllDataAccessPages
　　Debug.Print obj.Name
　　Next obj
$ D! Z" h! v8 U* o; C& t　　For Each obj In CurrentProject.AllForms
　　Debug.Print obj.Name
& l5 F8 |3 I5 j　　Next obj
, }! O6 ~" l/ l* H: _　　For Each obj In CurrentProject.AllMacros
　　Debug.Print obj.Name
　　Next obj
4 W( w# O+ x$ J+ J; A1 m　　For Each obj In CurrentProject.AllModules
　　Debug.Print obj.Name
　　Next obj
( `& W$ x' S; j: W0 z' [6 g" ~　　For Each obj In CurrentProject.AllReports
　　Debug.Print obj.Name
5 }/ S& ~4 w7 U5 Y! I- _7 [% f　　Next obj