Đánh giá chủ đề:
  • 3 Votes - 1.67 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lấy về địa chỉ tập tin
#1
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He
#2
Bạn có thể sử dụng cách khác 1 dòng code:
MsgBox CurrentProject.Path
Chữ ký của echippro Xin chào, mình là echippro, Tham gia http://thuthuataccess.com/forum từ ngày 10-09 -12.
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,291 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,736 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
Question [Help] Giúp mình tạo backup database theo ngày tháng chỉ định hugox03 3 753 05-02-14, 11:34 PM
Bài mới nhất: morosumo

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ