Thay thế báo lỗi tiếng Anh bằng tiếng Việt

Thường khi thao tác với Access, bạn hay gặp các câu báo lỗi bằng tiếng Anh, thay vào đó, bạn muốn khi gặp lỗi tương tự thì phải báo bằng tiếng Việt.
Ta làm như sau:
1) Đầu tiên bạn download file AccessAndJetErrors.zip từ :
http://www.access-programmers.co.uk/...1&d=1055362440
Giải nén và mở file AccessAndJetErrors.mdb, mở table tAccessAndJetErrors bạn sẽ thấy table này có 2 Field : ErrorCode và ErrorString. Table này liệt kê hầu hết các lỗi của Access, Ví dụ : bạn tìm trong table này record có ErrorCode là 2113 sẽ thấy ErrorString chính là câu báo lỗi trên.


2)Như vậy ta đã biết câu báo lỗi trên có errorcode là 2113, bây giờ ta tạo thủ tục trên form :

Code:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    Const SaiDuLieu = 2113
    Const Rong = 2107    ' khai báo hằng này có tính chất minh họa cho select case
    Const TaoLao = 1670 ' khai báo hằng này có tính chất minh họa cho select case
    Dim strMsg As String

Select Case DataErr
    Case SaiDuLieu
                Response = acDataErrContinue
                strMsg = "Bạn kiểm tra lại dữ liệu nhập. "
                MsgBox strMsg, , "Báo lỗi !"
    Case Rong
                Response = acDataErrContinue
                strMsg = "Bạn không được để trống số lượng, đơn giá"
                MsgBox strMsg, , "Báo lỗi !"
    Case else
                Response = acDataErrContinue
                strMsg = "Có một lỗi phát sinh "
                MsgBox strMsg, , "Báo lỗi !"
End Select

End Sub

Vậy là xong !

Bạn lưu ý: bằng cách này bạn có thể thay thế hầu hết các câu báo lỗi tiếng Anh trên Forrm bằng tiếng Việt ngon lành. Khi thiết kế Form, Bạn nhập tầm bậy tầm bạ trên Form để tìm tất cả các câu báo lỗi bằng tiếng Anh, mở Table AccessAndJetErrors tìm ErrorCode của các câu báo lỗi đó và đưa vào trong thủ tục Form_Error

(hungtano)

____________________________________________________________________________________
Thảo luận thêm tại: http://thuthuataccess.co.cc/forum