• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Hiện ảnh trên form ngay sau khi insert đường link hình

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Hiện ảnh trên form ngay sau khi insert đường link hình
• Hiện ảnh trên form ngay sau khi insert đường link hình

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  tvn_hut > 07-03-16, 11:35 PM

  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.

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  hungle2006 > 08-03-16, 09:21 AM

  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

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  hungle2006 > 08-03-16, 09:24 AM

  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é

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  ongke0711 > 08-03-16, 01:02 PM

  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).

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  hungle2006 > 08-03-16, 06:15 PM

  Ok cảm ơn bạn, tôi lại chọn nhầm Microsoft Office 15.0 Access Database engine Object Library

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  hungle2006 > 08-03-16, 11:07 PM

  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

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  ongke0711 > 08-03-16, 11:35 PM

  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ử.

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  hungle2006 > 09-03-16, 06:32 AM

  Ok cảm ơn bạn

• RE: Hiện ảnh trên form ngay sau khi insert đường link hình

  maidinhdan > 09-03-16, 11:34 AM

  Đâ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ế)
  
  
  
  ................Đọc thêm ở link này. Demo Chèn và hiển thị hình ảnh bằng đường dẫn
• Bài trước Bài tiếp