亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

在Access編程中，經常會需要獲取程序所在的目錄及全名，下列的各種方法可實現這個功能。

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

另外，需注意 CurrentProject及CodeProject的區別

一般情況下，如果你的MDB或ADP只使用一個文件，兩者指同一個對象。但如果你的MDB引用了另一個MDE文件。且這段代碼是在MDE里執行的話，則currentproject指你的第一個MDB，codeproject 指的是你引用的MDE文件。這種特性用在多模塊，通用模塊開方中非常好，我將其用于企業管理系統的開發當中，這樣，可使用多個MDE文件來分開實現不同的功能，而各個MDE又可組合成一個強大的系統（如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

讀取各個對象的名稱

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

更多信息請查看IT技術專欄