Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Hiện ảnh trên form ngay sau khi insert đường link hình
#11
Vậy bạn thử import module của a noname vào ct của bạn. Ko nên copy vi cò thể bạn chưa set chức năng nào đó hình như microsoft 11.0 trong reference. Bạn mở lại xem kỹ hướng dân nhé. Vì trước mình ko xem kỹ hướng dẫn nên code chạy ko dc.
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn
#12
Nó báo lỗi ở dòng lệnh dlgOpen As FileDialog

Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With

End Function
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#13
Mình có copy cả Function nhưng khi chạy nó báo lỗi ở dòng lệnh dlgOpen As FileDialog

Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With

End Function
Các bạn giúp tớ nhé
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#14
Bạn vô Tools/ Reference trong màn hình code VBA, chọn Microsoft Office 11.0 Object Library (hoặc 12.0, 14.0 ... tuỳ phiên bản Access của bạn).
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hungle2006
#15
Ok cảm ơn bạn, tôi lại chọn nhầm Microsoft Office 15.0 Access Database engine Object Library
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#16
Ongke0711 ơi cho tôi hỏi chút. Tôi đã chèn được ảnh theo đường dẫn rồi, nhưng khi tìm ảnh để chèn thì lại gặp lỗi như sau:
Run-time error 3163
This field too small to accept the amount of data you attempted to add. Try inserting or pasting less data
Mặc dù ảnh của em là *.jpg có 4kb
Trong code báo lỗi dòng màu hồng, thế này
Private Sub cmdTimAnh_Click()
Me![txtPic] = getFile("c:\", "Select the Picture File", "*.jpg;*.bmp")
Me![txtPic] = LCase(Me![txtPic])
Me![Image].Picture = Me!txtPic
End Sub
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#17
Bạn xem lại cái trường (cột) dùng để lưu đường dẫn file ảnh bạn set bao nhiêu ký tự? có thể đường dẫn dài quá vượt quá số ký tự bạn thiết lập. Bạn set thành 255 thử.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hungle2006
#18
Ok cảm ơn bạn
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#19
Đâ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: Demoxemhinh1.png]


Hình thứ 2 ( nhấn vào hình để xem thực tế)
[Hình: Demoxemhinh2.png]


................Đọc thêm ở link này. Demo Chèn và hiển thị hình ảnh bằng đường dẫn
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 147 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,489 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  Tạo Form đăng ký tài khoản phuc_thanhtien 15 1,018 27-09-16, 12:19 AM
Bài mới nhất: maidinhdan
  [Help] Truy vấn ngày phát sinh gần nhất trong access cuuvinh 4 225 21-09-16, 05:01 PM
Bài mới nhất: cuuvinh
  [Hỏi] Quá trình thực hiện một lệnh với CSDL dinh_trong_hoa 1 174 02-08-16, 04:06 PM
Bài mới nhất: ongke0711

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ơ