在Access取得程序所在的目錄及全名

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

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

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

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

　　有關詳細的MDE相互調(diào)用及如果跨MDE、平級MDE、上下級MDE相互調(diào)用窗體及報表的方法，可發(fā)郵件給我：tmtony@21cn.com做進一步解釋

? 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