Noname > 15-08-10, 01:25 PM
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 Subcuongtuyetcz > 18-12-10, 04:34 AM
Noname > 18-12-10, 10:28 AM
(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.
cuongtuyetcz > 18-12-10, 04:24 PM
Noname > 18-12-10, 07:02 PM
(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
cuongtuyetcz > 19-12-10, 03:59 AM
(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 ở đó!
cuongtuyetcz > 20-12-10, 01:30 AM
(19-12-10, 10:44 AM)Noname Đã viết:http://www.mediafire.com/?7bbrd0mm2dcl4la(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?
Noname > 20-12-10, 09:25 AM
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 Subcuongtuyetcz > 20-12-10, 07:02 PM
(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