Tùy chọn

CÁCH BẪY LỖI "ON ERROR GOTO... "

Trang chủ
CÁCH BẪY LỖI "ON ERROR GOTO... "
CÁCH BẪY LỖI "ON ERROR GOTO... "

n_gel > 31-03-11, 04:46 PM

ĐÂY LÀ ĐOẠN CODE MÌNH VIẾT ĐỂ KTRA SỐ CHẴN, LẺ VÀ BẪY LỖI KHI NHỮNG TRƯỜNG HỢP KO NHẬP ĐÚNG SỐ NGUYÊN VÀ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 thì báo "10 là số chẵn". Nhưng ngay sau đó nó còn thông báo "Chỉ Nhập số nguyên". Vậy giờ mình phải làm sao để cho nó hiện 1 tbao nếu nhập đúng thôi, còn nhập sai thì mới hiện tbao Loi. Tiện thể cho mình hỏi làm sao để gõ Tiếng Việt trong VB và MsgBox.
RE: CÁCH BẪY LỖI "ON ERROR GOTO... "

haquocquan > 31-03-11, 05:08 PM

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
RE: CÁCH BẪY LỖI "ON ERROR GOTO... "

n_gel > 31-03-11, 06:16 PM

Trường hợp xảy ra Lỗi thì nó mới làm dòng lệnh Loi chu. Mình ko hiểu lắm. Bạn giải thích giùm nhé.
RE: CÁCH BẪY LỖI "ON ERROR GOTO... "

haquocquan > 31-03-11, 06:37 PM

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
Bài trước Bài tiếp

CÁCH BẪY LỖI "ON ERROR GOTO... "

Trang chủ

CÁCH BẪY LỖI "ON ERROR GOTO... "

RE: CÁCH BẪY LỖI "ON ERROR GOTO... "

RE: CÁCH BẪY LỖI "ON ERROR GOTO... "

RE: CÁCH BẪY LỖI "ON ERROR GOTO... "