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

Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
• Chủ đề đã đóng
• Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  ndthanh29 > 07-02-13, 11:36 AM

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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  Noname > 07-02-13, 12:08 PM

  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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  ThanhPhong > 22-09-13, 04:33 PM

  (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?

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  lEEBINH > 14-05-14, 04:37 PM

  (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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  lEEBINH > 15-05-14, 02:18 AM

  (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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  chigonvh > 22-09-15, 10:45 AM

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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  tvn_hut > 01-01-16, 03:01 PM

  (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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  hungle2006 > 05-03-16, 01:47 AM

  (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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  jackcz > 08-09-16, 05:57 PM

  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

• RE: Nhập đường dẫn 1 file ảnh vào chương trình để lưu!

  maidinhdan > 08-09-16, 08:24 PM

  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!
• Bài trước Bài tiếp