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

会计考友

在Access编程中，经常会需要获取程序所在的目录及全名，下列的各种方法可实现这个功能。 　　不过，需注意CurrentProject及CodeProject不适合Access97及以前的版本。
　　另外，需注意CurrentProject及CodeProject的区别
# ]3 o& E# Q3 y' t# x6 A9 f　　一般情况下，如果你的MDB或ADP只使用一个文件，两者指同一个对象。但如果你的MDB引用了另一个MDE文件。且这段代码是在MDE里执行的话，则currentproject指你的第一个MDB，codeproject指的是你引用的MDE文件。这种特性用在多模块，通用模块开方中非常好，我将其用于企业管理系统的开发当中，这样，可使用多个MDE文件来分开实现不同的功能，而各个MDE又可组合成一个强大的系统（如ERP）。
1 T! `: K1 |9 N$ C; t0 a) H　　有关详细的MDE相互调用及如果跨MDE、平级MDE、上下级MDE相互调用窗体及报表的方法，可发邮件给我
　　CurrentProject.FullName
0 X) G4 g8 \3 N3 h2 k, d  s2 q, D) V　　D:frontaccesstmtonyAboutPath.mdb
6 {( `' L  Y4 Y8 }( n& r. \$ r　　CurrentProject.Name
+ B/ u7 [' S& m: u. x　　tmtonyAboutPath.mdb
　　CurrentProject.Path
　　D:frontaccess
　　Currentdb.Name
　　D:frontaccesstmtonyAboutPath.mdb
　　Codeproject.Name

( C. Z3 J9 ^! h% B" _　　tmtonyAboutPath.mdb

会计考友

</p>　　CodeProject.FullName
5 \* q* z+ w$ d9 E$ t　　D:frontaccesstmtonyAboutPath.mdb
: @. V  @6 R8 G8 Y" c0 X6 P+ `　　CodeProject.path
　　D:frontaccess
　　读取各个对象的名称
' Z, U+ Q" N8 V# P　　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
$ a9 p( w3 v# K6 o' P3 Z　　For Each obj In CurrentProject.AllMacros
6 a4 A4 n$ e; C1 P　　Debug.Print obj.Name
4 e3 t$ M7 G, i: |- a/ ?! J7 [　　Next obj
- {5 V6 S3 z6 f8 s　　For Each obj In CurrentProject.AllModules
& ?; W, j% y+ d　　Debug.Print obj.Name
' N. a0 J: @1 d, k　　Next obj
　　For Each obj In CurrentProject.AllReports
; N6 }- f# D# l0 ]( S　　Debug.Print obj.Name
; e3 m2 q/ ?: D0 r, W# X9 r　　Next obj