Đánh giá chủ đề:
  • 5 Votes - 2.4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
#21
theo hướng dẫn sau này mình làm không được bạn ơi.
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
Những người đã cảm ơn
#22
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Những người đã cảm ơn
#23
(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?
Chữ ký của ThanhPhong Xin chào, mình là ThanhPhong, Tham gia http://thuthuataccess.com/forum từ ngày 21-09 -13.
Những người đã cảm ơn
#24
(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
Chữ ký của lEEBINH Xin chào, mình là lEEBINH, Tham gia http://thuthuataccess.com/forum từ ngày 14-05 -14.
Những người đã cảm ơn
#25
(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.
[Hình: OfficeLib.JPG]

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
Chữ ký của lEEBINH Xin chào, mình là lEEBINH, Tham gia http://thuthuataccess.com/forum từ ngày 14-05 -14.
Những người đã cảm ơn
#26
(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.
[Hình: OfficeLib.JPG]

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.
Chữ ký của chigonvh Xin chào, mình là chigonvh, Tham gia http://thuthuataccess.com/forum từ ngày 28-05 -12.
Những người đã cảm ơn hungle2006
#27
(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
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.
Những người đã cảm ơn
#28
(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.
[Hình: OfficeLib.JPG]

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
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Những người đã cảm ơn
#29
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
Chữ ký của jackcz jackcz,gia nhập Thủ Thuật Access từ 08-09 -16.
Những người đã cảm ơn
#30
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

[Hình: Demoxemhinh2.png]

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

[Hình: ChenHinhNV1.png]


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

[Hình: elDCIJh.png]

Thân ái!
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) ღღღღღ
Những người đã cảm ơn jackcz


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo_Compact & Repaire nhiều file Back End maidinhdan 8 1,115 06-03-16, 10:54 PM
Bài mới nhất: maidinhdan
  Tùy chọn liên kết lại các table từ file data có password Noname 37 14,799 21-01-16, 10:59 AM
Bài mới nhất: minhhoacatv
  Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail) Noname 4 4,785 10-04-15, 02:08 PM
Bài mới nhất: m.vuong2211
  [Thủ Thuật] Demo gửi Email có thêm file đính kèm Access maidinhdan 0 680 09-04-15, 11:22 PM
Bài mới nhất: maidinhdan
  Phân quyền sửa Chương trình trong Access Noname 6 5,991 28-11-14, 11:43 AM
Bài mới nhất: nvthanghcm

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ơ