程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 在Access獲取程序所在的目錄及全名

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

編輯:關於Access數據庫

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

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

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

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

      有關詳細的MDE相互調用及如果跨MDE、平級MDE、上下級MDE相互調用窗體及報表的方法,可發郵件給我:[email protected]做進一步解釋

    ? 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

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved