Thưa bác Maidinhdan em không quản lý nhân viên của em mà em quản lý nhân khẩu, thế nên chưa biết lúc nào có ảnh của họ, hihi, nên cứ mở ra là nó thông báo không mở được, em cũng suy nghĩ về vụ này nhiều rồi mà không ra, chắc tại em gà mờ mà, mong bác chỉ giáo

(06-05-16, 11:56 AM)hungle2006 Đã viết: Thưa bác Maidinhdan em không quản lý nhân viên của em mà em quản lý nhân khẩu, thế nên chưa biết lúc nào có ảnh của họ, hihi, nên cứ mở ra là nó thông báo không mở được, em cũng suy nghĩ về vụ này nhiều rồi mà không ra, chắc tại em gà mờ mà, mong bác chỉ giáo

Vậy là bạn đã tải Demo không phải của mình rồi.... vui lòng vào tải lại.

Tải Demo tại bài #6 dùm, dù không có ảnh nó cũng không báo lỗi gì cả

Link: http://thuthuataccess.com/forum/thread-8...l#pid26714

File Đính kèm có tên là: Code_Xem Anh.zip

Code_xemanh của bác bị lỗi 2114 em không biết mở thế nào, bác xem lại giùm

(07-05-16, 10:59 AM)hungle2006 Đã viết: Code_xemanh của bác bị lỗi 2114 em không biết mở thế nào, bác xem lại giùm

1. Chụp hình lỗi Post lên đây.
2. Bạn sử dụng Office mấy , Hệ điều hành ? bao nhiêu bit?

Lý do: Code này đã được chứng minh như sau

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

Chào bác Maidinhdan, em dung òffice 2013, 64 bit, em da chuyen code sang 64 bit roi chay thi no bao loi 2114 nhu hinh sau:
Bấm vào nút "Chèn hình" xuất hiện lỗi
 
Ok tiếp :

bác xem giúp nhé

(09-05-16, 11:54 AM)hungle2006 Đã viết: Chào bác Maidinhdan, em dung òffice 2013, 64 bit, em da chuyen code sang 64 bit roi chay thi no bao loi 2114 nhu hinh sau:
Bấm vào nút "Chèn hình" xuất hiện lỗi
 
Ok tiếp :

bác xem giúp nhé

Hiện tại mình chỉ cài Access 2003 nên bạn nào có sẳn Office 2013 64 bit Test dùm bạn hungle. Xin cảm ơn

Bạn đợi đến cuối tuần công việc mình rãnh, mình xóa cài Office 2013 64 bit, để test cho bạn nhé.

Ghi chú ảnh từ Google Drive không đính trực tiếp trên diễn đàn được đâu. ( Chèn ảnh phải link trực tiếp bằng đuôi hình: *.jpg. *.bmp...)

Xin chèn link ảnh của bạn lại: Ảnh 1 _____ Ảnh 2

Tuy nhiên: Bạn thử vào chọn lại thư viện VBA - > Tool- > References. Xem dòng nào có chữ Misssing bạn chọn lại "Microsoft Access 11.0 Object Library" chọn số cao hơn thử xem ( Hướng dẫn xử lý lỗi Missing - Không tìm thấy thư viện tham chiếu: Hướng Dẫn [Tổng hợp] Tham chiếu Thư viện Access và Lỗi Missing)

Thân!

Cho mình hỏi điều này. Tại sao minh đặt chương trình trên máy tính mạng chia sẽ ứng dụng dưới dạng shortcut ch các máy trạm mình sử dụng nút chọn file như đã nêu ở trên thì bi báo lỗi. Cao thủ nào bít cách khắc phục chỉ dùm mình với

(18-07-16, 10:58 AM)thdanh Đã viết: Cho mình hỏi điều này. Tại sao minh đặt chương trình trên máy tính mạng chia sẽ ứng dụng dưới dạng shortcut ch các máy trạm mình sử dụng nút chọn file như đã nêu ở trên thì bi báo lỗi. Cao thủ nào bít cách khắc phục chỉ dùm mình với

1. Mình không phải là tác giả của Demo này nên không rõ chi tiết hàm, nên đề nghị bạn post hàm chèn file lên đây.
2. Bạn cho biết luôn đang sử dụng Office nào? bao nhiêu bit? Kể cả hệ điều hành đang dùng.

Còn demo của mình thì đây: http://thuthuataccess.com/forum/thread-8...l#pid26714

Ảnh minh họa

(21-08-10, 11:31 AM)Noname Đã viết: Hỏi: Tôi đã lưu hình ảnh vào ổ đĩa G: ( G: là ổ đĩa mạng). Và có 1 cơ sở dữ liệu lưu đường dẫn theo dạng : tvhinh(mahang,txtpic). Bây giờ trong Report làm sao tôi có thể vẽ lại các hình tôi đã lưu!
Đáp:
Trong Report, bạn vẽ 1 textbox đặt tên là txtpic, đặt thuộc tính visible của nó là False.
Vẽ 1 đối tượng image đặt tên nó là image1
Sau đó cho đoạn code sau vào

Mã:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Pic
If IsNull(Me.txtPic) Then
   Me.Image1.Picture = ""
   Me.Image1.Visible = False
Else
   Me.Image1.Picture = txtPic.Value
   Me.Image1.Visible = True
End If
Exit Sub
err_Pic:
   MsgBox Err.Description, vbOKOnly
   Exit Sub
End Sub

Cập nhật Demo

Download

Bạn noname ơi. mình làm theo hướng dẫn của bạn tuy nhiên khi in thì cái có hình cái không có mặc dù record nào cũng có đường link ảnh. Mình chưa biết giải quyết sao. Mong bạn hướng dẫn giúp

(21-08-10, 11:31 AM)Noname Đã viết: Hỏi: Tôi đã lưu hình ảnh vào ổ đĩa G: ( G: là ổ đĩa mạng). Và có 1 cơ sở dữ liệu lưu đường dẫn theo dạng : tvhinh(mahang,txtpic). Bây giờ trong Report làm sao tôi có thể vẽ lại các hình tôi đã lưu!
Đáp:
Trong Report, bạn vẽ 1 textbox đặt tên là txtpic, đặt thuộc tính visible của nó là False.
Vẽ 1 đối tượng image đặt tên nó là image1
Sau đó cho đoạn code sau vào

Mã:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Pic
If IsNull(Me.txtPic) Then
   Me.Image1.Picture = ""
   Me.Image1.Visible = False
Else
   Me.Image1.Picture = txtPic.Value
   Me.Image1.Visible = True
End If
Exit Sub
err_Pic:
   MsgBox Err.Description, vbOKOnly
   Exit Sub
End Sub

Cập nhật Demo

Download

Mình download về chạy thử, tuy nhiên khi số record nhiều lên (khoảng 20 chẳng hạn) thì lập tức khi in ra có nhiều record bị mất hình mặc dù vẫn có đường link hình. cả nhà thử xem có lỗi gì không nhỉ. Help me