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