ongke0711 > 23-10-19, 12:37 PM
(23-10-19, 09:18 AM)jason Đã viết:(22-10-19, 09:20 PM)tranthanhan1962 Đã viết: Bạn phải có một folder chứa phần mềm của bạn (Ví dụ: PhanMem) thư mục trong thư mục này chứa folder ảnh mà bạn đã sử dụng (Ví dụ Anh).
Từ đây ta có đường dẫn của thư mục chứa phần mềm là [CurrentProject].[Path]
=> Thiết đặt đường dẫn ảnh =[CurrentProject].[Path] & "\" & "Anh" & "\" & {TenAnh}
Khi sử dụng chương trình buột phải chép nguyên thư mục PhanMem chứa ứng dụng của bạn: trong đó có folder Anh
Ví dụ Khi chép vào thư mục D:\ChuongTrinh thì [CurrentProject].[Path]=D:\ChuongTrinh => Đường dẫn ảnh sẽ là D:\ChuongTrinh\Anh\{TenAnh}
Khi chép vào thư mục F:\ChuongTrinh\Luu thì [CurrentProject].[Path]=F:\ChuongTrinh\Luu => Đường dẫn ảnh sẽ là F:\ChuongTrinh\Luu\Anh\{TenAnh}
Và bạn có thể chép bất kỳ đâu mà không cần sửa lại đường dẫn.
Lưu ý: Cẩn thận với mấy thằng & "\" rất dễ bị lộn
e muốn khi sử dụng phần mềm chỉ cần copy 1 file chương trình thôi anh.(không copy folder chứa file ảnh)
a có cách giúp e với nhé !
Public Function GetBEFolder(pTablename As String) As String
Dim strFullPath As String, strConnect As String
Dim i As Long, pos As Integer
strConnect = DBEngine(0)(0).TableDefs(pTablename).Connect
pos = InStr(strConnect, "DATABASE") + 9 'them chuoi "DATABASE="
strFullPath = Mid(DBEngine(0)(0).TableDefs(pTablename).Connect, pos)
pos = InStrRev(strFullPath, "\")
GetBEFolder = Left(strFullPath, pos - 1)
End Function
Public Function GetImagePath(PeopleID As Variant) As String
Dim vFolderPath As String
vFolderPath = GetBEFolder("tblUser") & "\HinhNhanVien\"
GetImagePath = vFolderPath & PeopleID & ".jpg"
End Function
jason > 23-10-19, 03:48 PM