9999热视频三级毛片AV区|日韩欧美精品狼友观看视频|av在线成人免费AA片|日韩三级AV电影|久久亚洲私人国产精品vA|亚洲无码卡一卡二卡三|手机在线免费看黄色片|婷婷尹人在线婷婷五月手机网|99爱在线播放|欧美成人色情视频品

在Access編程中，經(jīng)常會(huì)需要獲取程序所在的目錄及全名，下列的各種方法可實(shí)現(xiàn)這個(gè)功能。

不過(guò)，需注意 CurrentProject及CodeProject不適合Access97及以前的版本。

另外，需注意 CurrentProject及CodeProject的區(qū)別

一般情況下，如果你的MDB或ADP只使用一個(gè)文件，兩者指同一個(gè)對(duì)象。但如果你的MDB引用了另一個(gè)MDE文件。且這段代碼是在MDE里執(zhí)行的話，則currentproject指你的第一個(gè)MDB，codeproject 指的是你引用的MDE文件。這種特性用在多模塊，通用模塊開(kāi)方中非常好，我將其用于企業(yè)管理系統(tǒng)的開(kāi)發(fā)當(dāng)中，這樣，可使用多個(gè)MDE文件來(lái)分開(kāi)實(shí)現(xiàn)不同的功能，而各個(gè)MDE又可組合成一個(gè)強(qiáng)大的系統(tǒng)（如ERP）。

? 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

讀取各個(gè)對(duì)象的名稱

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

更多信息請(qǐng)查看IT技術(shù)專欄