Tùy chọn
Mặc định đường dẫn hình
- Mặc định đường dẫn hình
-
Mặc định đường dẫn hình
thanhquyt > 17-06-17, 11:57 AM
Chào mọi người
Mình có làm 1 file access.
Trên form có tạo 1 button lấy hình ảnh.Khi click vào thì tìm đến thư mục mặc định C:\Users\PC\Documents.Sau đó mình tìm đến ổ D chưa hình ảnh.
Mong muốn là khi tìm đến ổ D\Forder hình thì khi tắt tool đi mở lên lại lần sau sẽ mặc định là ổ D\forder hình.
Mong mọi người giúp đở. -
RE: Mặc định đường dẫn hình
ongke0711 > 17-06-17, 03:12 PM
Không biết bạn dùng hàm nào để lấy file. Nếu dùng Application.FileDialog thì chỉ cần thêm dòng: .InitialFileName = "Đường dẫn folder" là được rồi.
Ví dụ:
Mã PHP:Dim dlgopen As Object 'FileDialog
Dim strFolder As String
Set dlgopen = Application.FileDialog(3) '(msoFileDialogFilePicker)
strFolder = "Chua chon file nào."
With dlgopen
.InitialFileName = "C:\Temp\"
If .Show = -1 Then
strFolder = dlgopen.SelectedItems(1)
Me.txtPath = strFolder
End If
End With -
RE: Mặc định đường dẫn hình
thanhquyt > 17-06-17, 04:16 PM
(17-06-17, 03:12 PM)ongke0711 Đã viết: Không biết bạn dùng hàm nào để lấy file. Nếu dùng Application.FileDialog thì chỉ cần thêm dòng: .InitialFileName = "Đường dẫn folder" là được rồi.
Ví dụ:
Mã PHP:Dim dlgopen As Object 'FileDialog
Dim strFolder As String
Set dlgopen = Application.FileDialog(3) '(msoFileDialogFilePicker)
strFolder = "Chua chon file nào."
With dlgopen
.InitialFileName = "C:\Temp\"
If .Show = -1 Then
strFolder = dlgopen.SelectedItems(1)
Me.txtPath = strFolder
End If
End With
Thank Bạn.Như cách của Bạn là đang gán cố định.Nếu forder đó thay đổi thì mình phải thay đổi lại đường dẫn.Ý mình là khi chọn đến forder đó lần đầu nó sẽ mặc định.Nếu sau có thay đổi forder thì khi tìm đến nó lại lưu đường dẫn forder mới -
RE: Mặc định đường dẫn hình
ongke0711 > 17-06-17, 04:58 PM
Cái này cũng không khó. Khi bạn chọn file ảnh để lưu thì cũng đã lưu đường dẫn đó vào field nào đó trong table rồi đúng không. Từ đường dẫn file đó, bạn dùng một hàm khác trích lấy đường dẫn folder. Sau đó đưa nó vào hàm tôi đã đề cập ở trên.
- Hàm lấy folder path: tham số "path" là đường dẫn file ảnh nào đó bạn đã lưu.
Mã PHP:Public Function GetFolderPath(path As String) As String
Dim pos As Integer
pos = InStrRev(path, "\")
If pos > 0 Then
GetFolderPath = Left$(path, pos)
Else
GetFolderPath = ""
End If
End Function
- Sửa lại cái hàm mở file ở trên chút:
Mã PHP:Dim dlgopen As Object 'FileDialog'
Dim strFolder As String
Dim strFile As String
strFile = Me.txtDuongDanFileAnh 'Textbox chứa path của file ảnh đã lưu trước đó'
Set dlgopen = Application.FileDialog(3) '(msoFileDialogFilePicker)
strFolder = "Chua chon file nào."
With dlgopen
.InitialFileName = GetFolderPath(strFile)
If .Show = -1 Then
strFolder = dlgopen.SelectedItems(1)
Me.txtPath = strFolder
End If
End With -
RE: Mặc định đường dẫn hình
tranthanhan1962 > 17-06-17, 07:39 PM
CurrentProject.Path là đường dẫn thư mục chứa tập tin CSDL access, Cứ để chung ảnh với tập tin CSDL cùng một thư mục thì mang đi đâu cũng được. -
RE: Mặc định đường dẫn hình
cpucloi > 19-06-17, 08:33 AM
Trích dẫn:CurrentProject.Path là đường dẫn thư mục chứa tập tin CSDL access, Cứ để chung ảnh với tập tin CSDL cùng một thư mục thì mang đi đâu cũng được.
Thêm thắt một chút của pácTrích dẫn: [b]tranthanhan1962[/b]
cho rõ, ví dụ:
Trong thư mục CSDL của bạn là: D:\\Quanly
Trong đó có file: Quanly.mdb (file chính)
Các folder khác: Anh, ....
Khi đó, toàn bộ ảnh bạn đưa vào thư mục ảnh (Anh)
Và bạn gọi đường dẫn: CurrentProject.Path & "\Anh\" -
RE: Mặc định đường dẫn hình
ongke0711 > 19-06-17, 09:32 AM
có những cái đơn giản mà mình cứ làm phức tạp nó lên... 