Đánh giá chủ đề:
  • 2 Votes - 2.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
CÁCH BẪY LỖI "ON ERROR GOTO... "
#1
ĐÂY LÀ ĐOẠN CODE MÌNH VIẾT ĐỂ KTRA SỐ CHẴN, LẺ VÀ BẪY LỖI KHI NHỮNG TRƯỜNG HỢP KO NHẬP ĐÚNG SỐ NGUYÊN VÀO:
Private Sub cmdKiemtra_Click()
On Error GoTo Loi
If txtSo Mod 2 = 0 Then
MsgBox txtSo + " la so chan"
Else:
MsgBox txtSo + " la so le"
End If
Loi: MsgBox "chi nhap so nguyen"
End Sub

Vd: Nhập số 10 thì báo "10 là số chẵn". Nhưng ngay sau đó nó còn thông báo "Chỉ Nhập số nguyên". Vậy giờ mình phải làm sao để cho nó hiện 1 tbao nếu nhập đúng thôi, còn nhập sai thì mới hiện tbao Loi. Tiện thể cho mình hỏi làm sao để gõ Tiếng Việt trong VB và MsgBox.
Chữ ký của n_gel Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Bạn phải đặt tiếp xử lý lỗi:

Private Sub cmdKiemtra_Click()
On Error GoTo Loi
If txtSo Mod 2 = 0 Then
MsgBox txtSo + " la so chan"
Else:
MsgBox txtSo + " la so le"
End If
Thoat:
Exit Sub

Loi:
MsgBox "chi nhap so nguyen"
Resume Thoat
End Sub

Còn MsgBox Tiếng việt: bạn search trong diễn đàn có một số TOPIC như:
http://thuthuataccess.co.cc/forum/Thread...tieng-viet
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Trường hợp xảy ra Lỗi thì nó mới làm dòng lệnh Loi chu. Mình ko hiểu lắm. Bạn giải thích giùm nhé.
Chữ ký của n_gel Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Nếu không gặp lỗi, nó chạy đến Thoát luôn (Exit Sub). Nếu gặp lỗi, hiện MsgBox và quay lại Thoat
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn n_gel


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Giúp đỡ về cách xóa nội dung trong một field nam8384 2 117 17-10-16, 08:43 PM
Bài mới nhất: toancvp
  [Hỏi] Cách không cho nhập chỉ cho chọn trong combobox của access thunga25 4 958 20-07-15, 10:31 AM
Bài mới nhất: hkht
  [Hỏi] Cách chia nhỏ CSDL Minh Tiên 3 570 04-06-15, 12:30 AM
Bài mới nhất: tranthanhan1962
Music [Help] Lỗi Run-time error '13' yang_ying 2 402 01-02-15, 08:33 AM
Bài mới nhất: yang_ying
  [Help] Lỗi: Run-time error '3075' Syntax error (missing operator) in query expression uronmapu 8 2,136 25-07-12, 06:25 PM
Bài mới nhất: uronmapu

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ơ