Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.

[dtngoc]

Em có rắc rối mong được anh chị chỉ bảo.

Em có 1table, tên tblEr, tại đây em có 2 cột, STT (là Primary key), NoiDung.

+ Tại cột STT: là ký hiệu các lỗi do em tự đặt từ 1 đến vô cùng...
+ Tại cột NoiDung: Là nội dung các lỗi có ký hiệu tại cột STT

Giờ em tạo 1 form và bẫy lỗi, nếu một lỗi nào đó có số = STT tại tblEr thì hiện NoiDung lên, còn không thì hiện nội dung của Access.

Em xin cảm ơn anh, chị !

 

[phatnq2002]

Ðề: Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.

Em có rắc rối mong được anh chị chỉ bảo.

Em có 1table, tên tblEr, tại đây em có 2 cột, STT (là Primary key), NoiDung.

+ Tại cột STT: là ký hiệu các lỗi do em tự đặt từ 1 đến vô cùng...
+ Tại cột NoiDung: Là nội dung các lỗi có ký hiệu tại cột STT

Giờ em tạo 1 form và bẫy lỗi, nếu một lỗi nào đó có số = STT tại tblEr thì hiện NoiDung lên, còn không thì hiện nội dung của Access.

Em xin cảm ơn anh, chị !

Access có cả một "rừng" chỉ số lỗi. Bạn có thể tham khảo chúng mà đặt vào bảng của mình. Chứ bạn "chế" chỉ số lỗi thì lấy gì mà bắt?

Bạn vào Help của Access, tìm Error Trapping mà xem.

 

[muontennguoi]

Ðề: Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.

Access có cả một "rừng" chỉ số lỗi. Bạn có thể tham khảo chúng mà đặt vào bảng của mình. Chứ bạn "chế" chỉ số lỗi thì lấy gì mà bắt?

Bạn vào Help của Access, tìm Error Trapping mà xem.

CÓ vẻ như ý bạn dtngoc là dịch sẵn 1 số lỗi sang tiếng Việt, như thế gặp lỗi là đã dịch rồi thì hiện tiếng Việt, còn gặp lỗi lạ thì cho hiện y sì tiếng Anh.

Như vậy trong cột STT đã chứa sẵn 1 số mã lỗi và cột ND chứa sẵn các thông báo bằng tiếng Việt.

Ở phía đầu chương trình dĩ nhiên là:

On Error GoTo Err_VN

và ở cuối là

Err_VN:
Dim thongbao as string
thongbao = timNDtiengVN(Err.Number)

IF thongbao = ""
MsgBox Err.Description
Else
MsgBox thongbao
End If


Dĩ nhiên là phải viết 1 cái function timNDtiengVN() để dò tìm theo mã lỗi và trả về thông báo lỗi, nếu không tìm thấy thì trả về "".