maidinhdan > 06-07-15, 04:04 PM
(06-07-15, 10:21 AM)changkhoonline77 Đã viết: Cũng hay nhưng tiếc là link ảnh không động. Tức là thay đổi tên folder hay đường dẫn folder chứa ảnh thì phải link lại, trên 1000 record mà link lại thì...
tronghieu9792 > 06-07-15, 04:07 PM
maidinhdan > 06-07-15, 05:27 PM
(06-07-15, 04:08 PM)tronghieu9792 Đã viết:(06-07-15, 04:07 PM)tronghieu9792 Đã viết: bạn maidinhdan thân mến, sao mĩnh tải về chỉ chèn được hìnhđầu tiên sao đó điều báo là hình quá lớn không chèn được nữa.
changkhoonline77 > 06-07-15, 10:57 PM
(06-07-15, 04:04 PM)maidinhdan Đã viết:(06-07-15, 10:21 AM)changkhoonline77 Đã viết: Cũng hay nhưng tiếc là link ảnh không động. Tức là thay đổi tên folder hay đường dẫn folder chứa ảnh thì phải link lại, trên 1000 record mà link lại thì...
Thì bạn dùng hàm Replace để đổi tên. Dù cho 1 triệu Reocord cũng được. Bạn biết tại sao tôi không làm tham chiếu động theo ý bạn hỏi không. Vì như thế bạn sẽ không có nút lệnh chèn tự động. Không lẽ bạn tự đánh tên hình vào.
Đó là lý do, nếu bạn cần hỗ trợ về hàm replace mình xin giúp đỡ tiếp.
Thân mến!
tranthanhan1962 > 12-07-15, 07:40 AM
Function DanhSachFile(TenFolder As String, TenTable As String, TenTruong1 As String, TenTruong2 As String)
Dim ThuTuFile As Integer
Dim TenFile As String
ThuTuFile = 0: TenFile = ""
With Application.FileSearch
.LookIn = TenFolder: .Filename = "*.*"
If .Execute > 0 Then
For ThuTuFile = 1 To .FoundFiles.Count
TenFile = .FoundFiles(ThuTuFile)
CurrentDb.Execute "IN_SERT INTO " & TenTable & " (" & TenTruong1 & "," & TenTruong2 & ")SELECT """ & ThuTuFile & """,""" & TenFile & """ ;"
Next
End If
End With
End Function
Private Sub TaoDSAnh_Click()
DanhSachFile "D:\AnhNgheThuat\", "tbnhanvien", "Socmnd", "Hinh"
End Sub
TenFile = Right(TenFile, Len(TenFile) - Len(CurrentProject.Path & "\image") - 2)
CurrentDb.Execute "IN_SERT INTO " & TenTable & " (" & TenTruong1 & "," & TenTruong2 & ")SELECT """ & ThuTuFile & """,""" & TenFile & """ ;"
Private Sub TaoDSAnh_Click()
DanhSachFile CurrentProject.Path & "\Images", "tbnhanvien", "Socmnd", "Hinh"
End Sub
Binhxuan1903 > 25-09-15, 04:07 PM
Binhxuan1903 > 25-09-15, 04:16 PM
(02-07-15, 05:31 PM)maidinhdan Đã viết: [i]maidinhdan to TranThanhAn1962[/i]Bạn maidinhdan thân mến. Chương trinh bạn rất hay. Mình đang rất cần, thanks nhiều nhá. Bạn chỉ mình in ảnh ra report với. Cám ơn nhièu.
Đây là Demo hiển thị ảnh như dùng Window mở vậy, đã test nhìn là thấy mê
1. Code sử dụng gồm:
- Chèn vị trí file ảnh
- Hiển thị hình ảnh theo link được lưu trong table
2. Thư viên DLL tham chiếu: Không có ( Vì ưu điểm này mà có thể chạy trên tất cả các Hệ điều hành và tất cả các bản Office 2003,2007,2010,2013...
3. Quy định về Kích thước và kiểu file ảnh: Không có
+ Vì thế bạn đưa bất kỳ file ảnh nào lên dù kích thước lớn hay nhỏ nó tự động canh chỉnh theo khung Text vẽ, và hình mình xem trên Window đẹp như thế nào thì khi xem trên Access cũng như thế.
4. Hình minh họa khi Load file:
Hình thứ 1 ( nhấn vào hình để xem thực tế)
Hình thứ 2 ( nhấn vào hình để xem thực tế)
Demo tải phí dưới.
Ghi chú:
- Vì file ảnh khá nặng nên chỉ đính kèm Demo file thôi. Ảnh các bạn kiển và chèn lại nhé
-Anh TranThanhAn1962 sửa lại tiêu đề dùm em là: "Demo Chèn và hiển thị hình ảnh bằng đường dẫn"
Thân ái, chúc anh vui khỏe.
hungle2006 > 08-03-16, 10:24 PM
maidinhdan > 09-03-16, 11:00 AM
(25-09-15, 04:16 PM)Binhxuan1903 Đã viết: Bạn maidinhdan thân mến. Chương trinh bạn rất hay. Mình đang rất cần, thanks nhiều nhá. Bạn chỉ mình in ảnh ra report với. Cám ơn nhièu.
P/s: vì là dân ko chuyên, hỏi có gì ngu các bác đừng cười.
(08-03-16, 10:24 PM)hungle2006 Đã viết: Anh Maidinhdan cho em xin phần mềm quản lý nhân sự bản accde được không để em nghiên cứu, em mới mày mò access nên cần học tập. Email của em: hoangmaikb@gmail.com, em dùng Office 2013, 64bit