• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Lấy về địa chỉ tập tin
• 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
• Bài trước Bài tiếp