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

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

　　不過需注意 CurrentProject及CodeProject不適合Access及以前的版本

　　另外需注意 CurrentProject及CodeProject的區別

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

　　有關詳細的MDE相互調用及如果跨MDE平級MDE上下級MDE相互調用窗體及報表的方法可發郵件給我tmtony@cncom做進一步解釋

　　? CurrentProjectFullName
D:frontaccesstmtonyAboutPathmdb
? CurrentProjectName
tmtonyAboutPathmdb
?CurrentProjectPath
D:frontaccess
?CurrentdbName
D:frontaccesstmtonyAboutPathmdb
?CodeprojectName
tmtonyAboutPathmdb
? CodeProjectFullName
D:frontaccesstmtonyAboutPathmdb
? CodeProjectpath
D:frontaccess

　　讀取各個對象的名稱

　　Dim obj As AccessObject
For Each obj In CurrentProjectAllDataAccessPages
　　　DebugPrint objName
Next obj
For Each obj In CurrentProjectAllForms
　　　DebugPrint objName
Next obj
For Each obj In CurrentProjectAllMacros
　　　DebugPrint objName
Next obj
For Each obj In CurrentProjectAllModules
　　　 DebugPrint objName
Next obj
For Each obj In CurrentProjectAllReports
　　　DebugPrint objName
Next obj

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈