Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hiện thông báo khi tìm file hình
#1
Mình có 1 form hiển thị hình ảnh lên form
Hình ảnh lấy đường dẫn là \manv.jpg
Nếu có hình trong thư mục thì ok view lên nhưng trường hợp chưa có hình nó sẽ báo lỗi như hình này
undefined
[Hình: Capture.png?w=280&h=210&fit=crop]
Mình muốn khi ko có hình nó sẽ hiện msgbox lên thông báo chưa có hình thì ko biết làm sao cả
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
Reply
Những người đã cảm ơn
#2
Giả sử đường dẫn ảnh là C\manv.jpg. Bạn thử xử lý bằng đaon mã này xem 
Mã:
Dim PictureFile as string
  Picturefile = "C\manv.jpg"
  if len(dir(picturefile)) > 1 then
     Me.imgIMAGE.Picture = picturefile
  Else
     Me.imgIMAGE.Picture = ""
  End if
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn babyrock2009 , maidinhdan
#3
Có 2 cách:
1.  Khi có lỗi phát sinh thì cứ bỏ qua chạy tiếp tục không làm treo hệ thống
    Tại dòng đầu tiên của thủ tục hoặc hàm bạn gõ vào mã lệnh:
    On error resume next
2. Bật msgbox thông báo khi có lỗi phát sinh
   Tại dòng đầu tiên của thủ tục hoặc hàm bạn gõ vào mã lệnh:
   On error go to <Label error>  
   'Label error: nhãn lỗi tương ứng với 1 đoạn mã xử lý
VD: 
Sub ShowPicture()
On error go to Baoloi
Baoloi:
If Err.Number()<>0 then
 Msgbox "Không tìm thấy tập tin...!"
End if
End Sub
Chữ ký của lmthu Xin chào, mình là lmthu, Tham gia http://thuthuataccess.com/forum từ ngày 04-07 -14.
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Ẩn form a và hiện form b (đều có popup và modal) mrsiro 25 1,135 08-09-18, 08:14 AM
Bài mới nhất: tieu_ngao
  Tạo Form co dãn (ẩn hiện Form Footer) tranthanhan1962 2 1,060 24-08-18, 11:34 PM
Bài mới nhất: tranthanhan1962
  [Help] Tắt tính năng lưu vị trí form or cài đặt vị trí form trên màn hình máy tính? Cuong Servenet 5 338 21-08-18, 12:35 PM
Bài mới nhất: Cuong Servenet
  [Hỏi] Cách lấy bất kì 1 file - mở file bằng VBA Access Cuong Servenet 2 299 14-08-18, 04:10 PM
Bài mới nhất: Cuong Servenet
  Các lấy hình nền, Icon trong một Form ongke0711 2 264 04-08-18, 09:50 AM
Bài mới nhất: huuduy.duy

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line