Đá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ỏi] câu lệnh where trong VBA xiketuan 1 50 06-12-17, 03:45 PM
Bài mới nhất: ongke0711
  [Hỏi] Dữ liệu trong mainForm và subForm pherotao 32 1,003 02-12-17, 03:00 PM
Bài mới nhất: pherotao
  Hướng Dẫn Lọc điều kiện trong Dcount mrsiro 2 95 30-11-17, 12:41 PM
Bài mới nhất: paulsteigel
  [Thủ Thuật] Thiết lập tự động Windows Regional ngày/tháng, định dạng tiền, số ongke0711 1 141 16-11-17, 02:42 PM
Bài mới nhất: vuthaiha90
  [Hỏi] Định dạng dd/mm/yyyy và 123.456.789,00 trong vba vuthaiha90 2 190 15-11-17, 12:17 AM
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ơ