Đá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
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 21,012 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 275 29-04-17, 08:26 PM
Bài mới nhất: ongke0711
  [Giúp] lấy đường dẫn tương đối cho các Shell dieuchinhlu 2 2,187 26-03-17, 12:09 AM
Bài mới nhất: phungminhluan
  [Hỏi] Đóng Access khi máy tính chuyển sang standby Phung Duc 3 242 23-03-17, 10:10 PM
Bài mới nhất: ongke0711
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,904 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999

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ơ