Đánh giá chủ đề:
  • 4 Votes - 3.75 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thay thế báo lỗi tiếng Anh bằng tiếng Việt
#1
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/foru...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:

Mã:
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 !
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
noname à, mình đã thử làm theo cách của bạn nhưng máy mình vẫn báo lỗi tiếng Anh. Bạn có thể
nêu thêm vài lí do có thể mình sai ở chỗ nào đó không. cám ơn bạn trước.
Chữ ký của cuongtuyetcz Hoàng hôn trên núi buồn ảm đạm
Thất huyền, Ánh sáng sao lung linh.
Cương thường,nét tạo người có sĩ
Ngôn trên đã tạo người hữu danh.
ღღღღღTài sản của cuongtuyetcz (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(18-12-10, 04:34 AM)cuongtuyetcz Đã viết: noname à, mình đã thử làm theo cách của bạn nhưng máy mình vẫn báo lỗi tiếng Anh. Bạn có thể
nêu thêm vài lí do có thể mình sai ở chỗ nào đó không. cám ơn bạn trước.

Đó là hướng cho bạn chuyển đổi thôi! Vấn đề là lỗi đó xảy ra ở đâu, do đối tượng nào chịu trách nhiệm bắt lỗi. Xảy ra khi bạn thực hiện việc nào? Mã số lỗi?...
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
mình xin hỏi bạn là mình có một form sub lồng trong form main. trong form sub có field mã hàng,khi field mã hàng không tìm thấy trong danh mục hàng thì nó báo lỗi (3101 microsoft jet không tìm thấy mã hàng trong danh mục hàng.) vậy theo bạn mình phải bắt lỗi ở đâu hay sự kiện nào để chuyển lỗi tiếng anh sang tiếng việt. Cám ơn bạn
Chữ ký của cuongtuyetcz Hoàng hôn trên núi buồn ảm đạm
Thất huyền, Ánh sáng sao lung linh.
Cương thường,nét tạo người có sĩ
Ngôn trên đã tạo người hữu danh.
ღღღღღTài sản của cuongtuyetcz (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(18-12-10, 04:24 PM)cuongtuyetcz Đã viết: mình xin hỏi bạn là mình có một form sub lồng trong form main. trong form sub có field mã hàng,khi field mã hàng không tìm thấy trong danh mục hàng thì nó báo lỗi (3101 microsoft jet không tìm thấy mã hàng trong danh mục hàng.) vậy theo bạn mình phải bắt lỗi ở đâu hay sự kiện nào để chuyển lỗi tiếng anh sang tiếng việt. Cám ơn bạn

bạn nhấn cái gì, hay mở form là nó hỏi thế? Có chương trình mẫu post mình xem thử!
Bạn nên dò trong các sự kiện on error ...goto... và đặt msgbox ở đó!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(18-12-10, 07:02 PM)Noname Đã viết:
(18-12-10, 04:24 PM)cuongtuyetcz Đã viết: mình xin hỏi bạn là mình có một form sub lồng trong form main. trong form sub có field mã hàng,khi field mã hàng không tìm thấy trong danh mục hàng thì nó báo lỗi (3101 microsoft jet không tìm thấy mã hàng trong danh mục hàng.) vậy theo bạn mình phải bắt lỗi ở đâu hay sự kiện nào để chuyển lỗi tiếng anh sang tiếng việt. Cám ơn bạn

bạn nhấn cái gì, hay mở form là nó hỏi thế? Có chương trình mẫu post mình xem thử!
Bạn nên dò trong các sự kiện on error ...goto... và đặt msgbox ở đó!

nó báo lỗi khi mình chọn một mã hàng không có trong danh mục hàng hoá
Chữ ký của cuongtuyetcz Hoàng hôn trên núi buồn ảm đạm
Thất huyền, Ánh sáng sao lung linh.
Cương thường,nét tạo người có sĩ
Ngôn trên đã tạo người hữu danh.
ღღღღღTài sản của cuongtuyetcz (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(19-12-10, 03:59 AM)cuongtuyetcz Đã viết: nó báo lỗi khi mình chọn một mã hàng không có trong danh mục hàng hoá

Bạn có thể post chương trình (demo thôi) cho mình dễ hình dung không?

Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(19-12-10, 10:44 AM)Noname Đã viết:
(19-12-10, 03:59 AM)cuongtuyetcz Đã viết: nó báo lỗi khi mình chọn một mã hàng không có trong danh mục hàng hoá

Bạn có thể post chương trình (demo thôi) cho mình dễ hình dung không?
http://www.mediafire.com/?7bbrd0mm2dcl4la
đây là file của mình đang tập làm noname ạ .
ở form Fbanhang khi mình nhập một mã hàng o field mahang mã không có trong bảng HANG thì microsoft jet sẽ báo lỗi là không tìm thấy field mahang trong bảng HANG bằng tiếng Anh. mình đã thử học qua cách của bạn nhưng không thành công lên mình đã xoá hết code rồi . vậy mong bạn giúp mình,để mình có thể học hỏi thêm kinh nghiệm của bạn. Cám ơn bạn và mọi người vì qua diễn đàn này mình học đươc rất nhiều về access.
Chữ ký của cuongtuyetcz Hoàng hôn trên núi buồn ảm đạm
Thất huyền, Ánh sáng sao lung linh.
Cương thường,nét tạo người có sĩ
Ngôn trên đã tạo người hữu danh.
ღღღღღTài sản của cuongtuyetcz (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Lỗi không tìm thấy mã trong bảng liên kết 1-n.
Mã số lỗi: 3101

Để bắt được lỗi này, trong event form error, bạn khai báo, nếu DataErr=3101 thì báo loi bang tieng Viet.
Cụ thể bạn thử copy đoạn code trong sự kiện error của subform Fhangsub

Mã:
Private Sub Form_Error(DataErr As Integer, Response As Integer)


    Dim strMsg As String
    Const noKey = 3101 'khong tim thay mahang trong bang chinh
Select Case DataErr
        Case noKey
              Response = acDataErrContinue
                strMsg = "khong tim thay ma hang trong bang hang hoa"
                MsgBox strMsg, , "Baìo lôÞi !"
    Case Else
                Response = acDataErrContinue
                strMsg = "Coì môòt lôÞi phaìt sinh "
                MsgBox strMsg, , "Baìo lôÞi !"
                End Select
End Sub
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan
#10
(20-12-10, 09:25 AM)Noname Đã viết: Lỗi không tìm thấy mã trong bảng liên kết 1-n.
Mã số lỗi: 3101

Để bắt được lỗi này, trong event form error, bạn khai báo, nếu DataErr=3101 thì báo loi bang tieng Viet.
Cụ thể bạn thử copy đoạn code trong sự kiện error của subform Fhangsub

Mã:
Private Sub Form_Error(DataErr As Integer, Response As Integer)


    Dim strMsg As String
    Const noKey = 3101 'khong tim thay mahang trong bang chinh
Select Case DataErr
        Case noKey
              Response = acDataErrContinue
                strMsg = "khong tim thay ma hang trong bang hang hoa"
                MsgBox strMsg, , "Baìo lôÞi !"
    Case Else
                Response = acDataErrContinue
                strMsg = "Coì môòt lôÞi phaìt sinh "
                MsgBox strMsg, , "Baìo lôÞi !"
                End Select
End Sub

mình đã làm được cảm ơn bạn.
Chữ ký của cuongtuyetcz Hoàng hôn trên núi buồn ảm đạm
Thất huyền, Ánh sáng sao lung linh.
Cương thường,nét tạo người có sĩ
Ngôn trên đã tạo người hữu danh.
ღღღღღTài sản của cuongtuyetcz (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 542 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,404 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  Msg Box tiếng Việt Unicode có định dạng chữ đậm tranthanhan1962 13 2,275 30-01-16, 12:39 AM
Bài mới nhất: khanghychu
  Hướng Dẫn Demo Cho tất cả thông báo tiếng việt vào một Macro maidinhdan 3 991 23-07-15, 03:09 PM
Bài mới nhất: maidinhdan
  Hướng dẫn cơ bản về việc lập báo cáo tồn kho và in thẻ kho bằng query Xuân Thanh 30 14,959 13-02-15, 10:47 PM
Bài mới nhất: thucgia

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ơ