Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Xem giúp em ] Chèn ảnh tự động trong acess 2003
#1
Em đang làm 1 bài quản lý sinh viên. Trên form Sinh viên em muốn sử dụng 1 nút để cập nhật ảnh tự động vào form. em có tham khảo đoạn code trên mạng. Các bác xem hộ em với.
Đoạn code em cho vào nè:
Private Sub cmdNhapHinhAnh_Click()
If IsNull(MaSV) Then
MsgBox "Mã Sinh viên Không duoc de trong"
Exit Sub
End If
Dim cPathAnh As String, cAnh As String
cPathAnh = cPath & "\" & Me.MaSV & ".JPG"
cAnh = UCase(Me.MaSV & ".JPG")
If Dir(cPathAnh) <> cAnh Then
MsgBox " Sinh vien Nay chua co anh !"
Exit Sub
End If
With HinhAnh
.Class = "Bitmap.Image"
.OLETypeAllowed = acOLELinked
.SourceDoc = cPathAnh
.Action = acOLECreateLink
End With
End Sub
Private Sub Form_Load()
cPath = Application.CurrentProject.Path
End Sub

Link em nó nè Các bác xem hộ em với . Em cảm ơn nhiều
Chữ ký của mosado Xin chào, mình là mosado, Tham gia http://thuthuataccess.com/forum từ ngày 02-11 -11.
Reply
Những người đã cảm ơn
#2
Tham khảo các topic này:
Lưu đường dẫn hình
http://thuthuataccess.com/forum/thread-81.html
Hiển thì hình khi có đường dẫn
http://thuthuataccess.com/forum/thread-82.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Hi. Cảm ơn bác.
Chữ ký của mosado Xin chào, mình là mosado, Tham gia http://thuthuataccess.com/forum từ ngày 02-11 -11.
Reply
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
  [Hàm] Nhờ gở khó về hàm DLookup trong câu lệnh VBA phungminhluan 3 112 13-10-17, 07:24 PM
Bài mới nhất: phungminhluan
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 11 1,514 23-09-17, 04:54 PM
Bài mới nhất: ongke0711
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 147 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 22,179 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  [Hỏi] Tự động Append Field vào ADO Recordset với Fields lấy từ một Table có sẳn ongke0711 3 369 29-04-17, 08:26 PM
Bài mới nhất: ongke0711

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ơ