maidinhdan > 27-02-15, 11:51 PM
DoCmd.RunMacro "mcthongbao.1"
Xuân Thanh > 13-03-15, 04:29 PM
rainkv > 22-07-15, 10:30 PM
maidinhdan > 23-07-15, 03:09 PM
(22-07-15, 10:30 PM)rainkv Đã viết: Với cách này để gọi macro thông báo trùng mã số textboxmasohs trên form thì dùng code thế nào để gọi khi nhạp số hs bị trùn
Private Sub Form_Error (DataErr As Integer, Response As Integer)
Response = acDataErrContinue ‘ tắt thông báo của Access
Select Case DataErr
Case 3022
DoCmd.RunMacro "mcthongbao.5" ' Đây là thông báo trùng khóa chính, số 5 là số bạn đặt như hình trên demo
Case 3058
MsgBox “Khóa chính để trống.”
Case 3314
MsgBox “Có ít nhất một field chưa nhập theo yêu cầu bắt buộc.”
Case Else
MsgBox “Có lỗi xảy ra.” & Chr(13) & “Chỉ số lỗi: “ & DataErr & Chr(13) & _
“Nội dung lỗi: “ & Err.Description
End Select
End Sub