theo hướng dẫn sau này mình làm không được bạn ơi.

Có demo ở trang 1. Bạn down về xem cách làm. Đảm bảo có làm đúng như hướng dẫn chưa

(19-12-12, 11:17 AM)quanghoasla Đã viết: Được đấy bạn. bạn cứ làm như noname chỉ sau đó sửa code lại như sau là ok.
Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.doc;*.pdf")
Me![TxtPic] = LCase(Me![TxtPic])
Me![Image].Picture = Me!TxtPic

Chúc bạn thành công

(19-12-12, 12:57 PM)ndthanh29 Đã viết: nó báo lỗi tại dòng Me![Image].Picture = Me!TxtPic bạn có thể giải quyết vấn đề này luôn ko?

Các bạn giải quyết lỗi trên như thế nào vậy?

(19-12-12, 02:54 PM)quanghoasla Đã viết: Mình giải quyết vấn đề đó cho bạn nè. đây là data trích xuất từ phần mềm ứng dụng do mình làm bạn nhé. bạn tải về và chạy bình thường. bạn có thể tham khảo và chỉnh sửa theo data của bạn. Ở đây ứng dụng của mình demo cho bạn giúp bạn có thể thêm , xóa các file tùy ý. (*.jpg,*.gif,*.doc,*.pdf,....) lưu ý nhé. ở đây tớ giúp bạn insert và lưu lại đường dẫn của các file bạn muốn thêm thôi, chỉ có hình ảnh là bạn có thể view được.

Demo by quanghoasla

Nếu bạn thực sự muốn phát triển nó trên web thì mình có thể giúp bạn được nhiều hơn thế nữa.

Mình đang làm hố sơ nhân viên. Khi mình chọn thêm. Thì làm sao cập nhật ảnh đc bạn. Mình làm thử cái này rồi. Ok. Nhưng khi mình cập nhật ảnh xong, chưa điền thông tin j liên quan đến nhân viên thì nó nhảy qua nhân viên khác. và hình mình và cập nhật cũng là of nhân viên khác luôn

(21-08-10, 11:25 AM)Noname Đã viết: Hôm nay tôi sẽ giới thiệu các bạn cách để nhập liệu đường dẫn ấy sao cho người dùng chỉ cần click chuột.
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh

Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.


Copy đoạn code hàm sau dán vào Module

Mã:

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

Bây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:

Code:

Mã:

Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
    Me![TxtPic] = LCase(Me![TxtPic])
    Me![Image].Picture = Me!TxtPic

Các bạn xem demo:Download

Đường dẫn of mình ntn
C:\Program Files (x86)\Microsoft Office\Office12\BITMAPS\DBWIZ\ASSETS.GIF
thì làm như thê nào

(21-08-10, 11:25 AM)Noname Đã viết: Hôm nay tôi sẽ giới thiệu các bạn cách để nhập liệu đường dẫn ấy sao cho người dùng chỉ cần click chuột.
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh

Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.


Copy đoạn code hàm sau dán vào Module

 

Mã:

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

Bây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:

Code:

 

Mã:

Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
   Me![TxtPic] = LCase(Me![TxtPic])
   Me![Image].Picture = Me!TxtPic

Các bạn xem demo:Download

Bác có thể làm với access 2013 64bit giùm em được không. Mày mò làm gần xong một cái chương trình mà còn cái này.
Dùng code của bác thì gặp lỗi:
"Compile error:
user-defined type not defined"
Thank u!
Hoặc có thể làm một nút chọn đường dẫn giùm nha bác.

(24-12-12, 01:53 AM)quanghoasla Đã viết: hi mình làm xong demo mở file cho bạn rồi đấy. hôm trước imports files thì mình đã làm rồi. cái này bạn dùng thì thích luôn nhé. chúc bạn vui vẻ.

Hi ban
Mình thấy demo của bạn rất hay, nhưng khi insert hình vào nó không hiện ngay mà phải di chuột lựa chọn các record bên dưới nó mới thay đổi. có cách nào cho nó hiện lên ngay được không? và khi mình muốn mở nó bằng 1 nút ấn thì làm thể nào. Thêm nữa khi 1 record nào đó không có hình thì để mặc định là trống không bạn. Thanks bạn trước

(21-08-10, 11:25 AM)Noname Đã viết: Hôm nay tôi sẽ giới thiệu các bạn cách để nhập liệu đường dẫn ấy sao cho người dùng chỉ cần click chuột.
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh

Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.


Copy đoạn code hàm sau dán vào Module

 

Mã:

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

Bây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:

Code:

 

Mã:

Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
   Me![TxtPic] = LCase(Me![TxtPic])
   Me![Image].Picture = Me!TxtPic

Các bạn xem demo:Download

Dùng code của bác trên 64 bit thì gặp lỗi:
"Compile error:
user-defined type not defined"
Bác xem lại giúp

bác nào giúp em phát ạh, đã làm được như trên, bây giờ muốn cũng cái hình đó hiển thị ở 1 report, xin hỏi có cách nào kiểu truyền cái hình đó qua report để in ra

Tôi xin phép đóng chủ đề này.

Lý do: Đã có 2 bài viết sau giúp chèn ảnh khó bị lỗi khi load hình bằng file đường dẫn:

Demo 1: Demo Chèn và hiển thị hình ảnh bằng đường dẫn



Or Link này: http://thuthuataccess.com/forum/thread-8...l#pid29691




Demo 2: [Hỏi] Chèn ảnh vào report ( nếu không có ảnh thì thu gom lại )



Thân ái!