Đá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] chèn hình theo điều kiện jason 17 777 08-03-19, 04:09 PM
Bài mới nhất: jason
  [Help] Nhờ mọi người giúp Đóng gói file access thành file cài đặt ngochieu8109 1 239 20-02-19, 03:05 PM
Bài mới nhất: vuthaiha90
  [Hỏi] Xuất file Excel Nguyên Thông 7 310 20-02-19, 11:59 AM
Bài mới nhất: Nguyên Thông
  [Hỏi] Ẩn form a và hiện form b (đều có popup và modal) mrsiro 25 1,942 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,328 24-08-18, 11:34 PM
Bài mới nhất: tranthanhan1962

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| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối