Đá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!
#1
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Những người đã cảm ơn hoangthanhhai , Cafe Via He , mrsiro , chigonvh , hungle2006
#2
Chào bạn Noname!

Cám ơn bạn nhiều, theo hướng dẫn của Bạn thì mình đã làm được rùi.
Cho mình hỏi: Trong trường hợp mình không chọn file ảnh thì làm thế nào để nó không hiện ra bảng thông báo lỗi "Type mismatch".
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Những người đã cảm ơn
#3
cách của anh noname rất hay. ngoài ra mình cũng có một cách inserts ảnh vào table theo cách khác. bạn có thể vào đây tham khảo nhé. đây là database
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Những người đã cảm ơn
#4
Mở file của ban thì được. nhưng mình tạo 1 file mới trên máy của mình rồi chuyển code của bạn vào thì lại báo lỗi không khai báo hàm getfile2. chán quá
Chữ ký của loihhec Xin chào, mình là loihhec, Tham gia http://thuthuataccess.com/forum từ ngày 13-05 -11.
Những người đã cảm ơn
#5
có thể bạn chưa khai báo trong thư viện reference. cách đơn giản bản có thể sử dụng import modul and form từ access. access sẽ chép hết toàn bộ định dạng và đăng ký thư viện theo đúng files gốc của mình. bạn thử coi nhé. chúc bạn thành công.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Những người đã cảm ơn Noname , Cafe Via He
#6
Bạn noname cho mình hỏi với hình ảnh ở dạng text như vậy thì khi mình làm report in sơ yếu lý lịch hay thẻ nhân viên thì làm sao cho hình ảnh nó hiển thị sang report.
Chữ ký của anhhungbt9025 Xin chào, mình là anhhungbt9025, Tham gia http://thuthuataccess.com/forum từ ngày 11-11 -11.
Những người đã cảm ơn
#7
sẵn cho mình hỏi luôn là mình muốn chèn vào 1 file pdf hay doc thì sao bạn?
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
#8
Đượ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
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Những người đã cảm ơn
#9
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? Mình muốn dùng 1 đoạn code để mở file vừa chèn thì phải làm như thế nào?
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
#10
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.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
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
  [Thủ Thuật] Demo_Compact & Repaire nhiều file Back End maidinhdan 8 1,117 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,811 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,788 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 681 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ơ