• Trang chủ click to expand contents 

  • Lấy về địa chỉ tập tin

  • Lấy về địa chỉ tập tin

    Noname > 28-08-10, 11:44 AM

    Hỏi: Tôi muốn lấy địa chỉ tập tin file *.mdb (*.mde) để sử dụng như một tham số vào vấn đề khác. Làm sao lấy được địa chỉ một cách tự động khi tập tin cứ luôn bị người dùng thay đổi?

    Trả lời: Bạn tạo một hàm GetappPath() trong module với tham số là GetappPath để có thể sử dụng vào mục đích khác. Nội dung như sau:
    Mã PHP:
    Function GetAppPath() As String
        On Error Resume Next

        Dim DBName     As String
        Dim DBPath     As String
        Dim intCurrVal     As Integer
        Dim intLastPosition     As Integer

        DBName     = CurrentDb.Name

        intCurrVal     = InStr(DBName, "\")
        Do Until intCurrVal = 0
        intLastPosition = intCurrVal
        intCurrVal = InStr(intLastPosition + 1, DBName, "    \")
        Loop

        DBPath = left(DBName, intLastPosition)
        GetAppPath = DBPath

        End Function 

    Nếu cần bạn có thể thêm hàm Msgbox () để thông báo đường dẫn hiện tại của tập tin mà ko phu thuộc vào sự thay đổi vị trí tập tin, tức là tham số GetAppPath cũng thay đổi theo sự thay đổi địa chỉ do người dùng.

    MsgBox "Duong dan hien tai cua file nay la " & GetAppPath, vbOKOnly, "Thong bao"

    Tác giả: PhilongXPCT

  • RE: Lấy về địa chỉ tập tin

    echippro > 11-09-12, 10:14 PM

    Bạn có thể sử dụng cách khác 1 dòng code:
    MsgBox CurrentProject.Path