Mình tạo một danh sách khách hàng cho bẫy lỗi trùng khóa chính (Eror 3022). Khi nhập Tên khách và số điện thoai thì sẽ tao Mã khách = Tên khách & số điện thoại. Mã khach là primary key. Mấy cái này đã làm trên mdb chạy OK. Nhưng khi chuyển qua accdb thì lại im re không hoạt đông. kiểm tra thì không thấy sai chổ nào nhưng lại không chạy. thêm Me.Refresh thì báo lỗi. Nhờ ongke0711, maidinhdan và các bạn xem giúp mình còn thiếu hay sai chỗ nào. 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  Response = acDataErrContinue
  Select Case DataErr
  Case 3022
      MsgBox "trùng  khách hàng, vui long nhap lai", vbOKOnly, "Chu y!"
  End Select
End Sub

Tập tin demo
DSKH

Cháu đã download về vẫn thấy chương trình hoạt động bình thường.
Máy tính cháu sử dụng win 10 bản quyền

Máy của mình window 11 bản quyền office 2021. Không hiểu sao nó không hoạt động

(03-06-22, 11:58 PM)tranthanhan1962 Đã viết: Máy của mình window 11 bản quyền office 2021. Không hiểu sao nó không hoạt động

Nguyên nhân không phải do phiên bản Office đâu anh Ân.
Em test như thế này:
- Nhập liệu trùng -> bấm các nút tiến lùi, tạo mới thì sự kiện Form _Error nó không chạy để bắt lỗi.
- Khi đóng Form nó mới bắt lỗi 3022.

Nguyên nhân là do anh có code cho các nút lệnh tiến lùi riêng, không dùng bộ nút Navigation mặc định của Form. Anh thử thêm Navigation Buttons=Yes xem, khi nhập trùng và di chuyển record, Form_Error sẽ bắt lỗi ngay.
Do anh đã code riêng cho nút tiến lùi nên phải bẫy lỗi 3022 luôn trong code của bộ nút này hoặc thêm sự kiện Form_BeforeUpdate (thường người ta hay dùng sự kiện này).

Thank ongke0711 và DooHoaangPhuuc. Thực tệ mình đã chủ quan. Đúng là thiếu bẫy lỗi ở các nút Navigation và close form. Chỉ cần thêm bẫy lỗi và gọi call Form_Error mà không nhớ. Đúng là càng già càng tệ

Hì! nghĩ đơn giản nhưng không phải vậy. Đúng như ongke0711 nói. Bẫy lỗi 3022 chỉ chạy với Navigation mặc định của  Còn với nút tự tạo thì không chạy đã thử nhiều cách, nhiều code vẫn thua. một số code chạy Ok với access 2003 nhưng đem accbd thì đơ như cây cơ. Mình lên mạng tìm được một số code thì cũng viết cho mdb thôi

(04-06-22, 05:31 PM)tranthanhan1962 Đã viết: Hì! nghĩ đơn giản nhưng không phải vậy. Đúng như ongke0711 nói. Bẫy lỗi 3022 chỉ chạy với Navigation mặc định của  Còn với nút tự tạo thì không chạy đã thử nhiều cách, nhiều code vẫn thua. một số code chạy Ok với access 2003 nhưng đem accbd thì đơ như cây cơ. Mình lên mạng tìm được một số code thì cũng viết cho mdb thôi

Nói chung là viết code riêng, chiếm quyền điều khiển riêng của nó thì anh không thể làm biếng mượn cái lỗi 3022 của Form _Error để bắt lỗi được rồi.
Nó không trả về lỗi 3022 do đó anh chỉ có cách là bẫy trùng khóa bằng các code kiểm tra trùng truyền thống như: Dcount() thôi.

Anh có thể bẫy lỗi 3022 như sau: Mỗi khi di chuyển, tạo mới record, phải ép Access lưu dữ liệu xuống Table, khi đó nó mới hiện lỗi 3022.


Có một cách khác chưa test thử đó là anh tách bộ nút tiến lùi ra thành 1 subform, khi đó thì khi di chuyển record, có thể Form_Error có thể bắt được lỗi 3022. Để làm thử xong up lên mọi người tham khảo.

Mình mới làm được xong. Không cần đến bộ Navigation hệ thống của form access nhưng thấy nó quá rườm rà có lẽ do PRIMARY KEY của mình đươc tạo từ 2 trường:
Đầu tiên mình test thử nút AddRecord với Embedded Macro tạo bằng wizard, nó vẫn không bắt lỗi 3022. mình thử tạo macro goto record New thì nó băt lỗi  được nhưng bị vấn đề phải bấm thêm nút Stop All Macro Convert Macro sang code:

Function mcrNew()
On Error GoTo mcrNew_Err

    DoCmd.GoToRecord acForm, "DanhSachKhachHang", acNewRec


mcrNew_Exit:
    Exit Function

mcrNew_Err:
    'MsgBox Error$
Form.Undo

    Resume mcrNew_Exit

End Function

Thì bị lỗi chỗ Resume mcrNew_Exit

Bỏ dòng lệnh này thì OK. Nhưng nó chỉ xóa giá trị trường cuối cùng được gỏ vào. Các trường khác vẫn con nguyên dữ liệu
Sau khi chỉnh sửa một hồi thì đoạn code này tương đối OK

Private Sub AddRecord_Click()
On Error GoTo AddRecord_Click_Err

    DoCmd.GoToRecord acForm, "DanhSachKhachHang", acNewRec

AddRecord_Click_Exit:
    Exit Sub

AddRecord_Click_Err:
    'MsgBox Error$
            MsgBoxW "Khách hàng mà b" & ChrW(7841) & "n nh" & ChrW(7853) & "p " & ChrW(273) & "ă có. Hăy xem l" & ChrW(7841) & "i.", vbExclamation + vbOKOnly, "L" & ChrW(7895) & "i"
    Form_DanhSachKhachHang.MAKHACH = ""
    Form_DanhSachKhachHang.Diachi = ""
    Form_DanhSachKhachHang.TENKHACH = ""
    Form_DanhSachKhachHang.Dienthoai = ""
        Forms!DanhSachKhachHang!TENKHACH.SetFocus

End Sub


Nhưng Form bị mất Focus, mặc dù đã chèn lệnh SetFocus vào đồng thời thêm một record với các field có giá trị "". Buột phải thêm lệnh vào event close:

Private Sub Form_Close()
        DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE DanhSachKhachHang.MAKHACH FROM DanhSachKhachHang WHERE (((DanhSachKhachHang.MAKHACH)=''));"
        DoCmd.SetWarnings True
End Sub
Thực là quá rườm rà. Đồng thời mất Focus form buột phải chọn lại form nếu muốn nhập dữ liệu tiếp tục. ongke0711 nghiên cứu xem có cách nào hay hơn không còn trường hợp nếu không bấm nút New mà close luôn mình chưa test vì đuối quá để nghiên cứu sau? Mình nhớ vơii tập tim mdb đâu có mệt mỏi như thế này 

(04-06-22, 11:02 PM)tranthanhan1962 Đã viết: ...
Thực là quá rườm rà. Đồng thời mất Focus form buột phải chọn lại form nếu muốn nhập dữ liệu tiếp tục. ongke0711 nghiên cứu xem có cách nào hay hơn không còn trường hợp nếu không bấm nút New mà close luôn mình chưa test vì đuối quá để nghiên cứu sau? Mình nhớ vơii tập tim mdb đâu có mệt mỏi như thế này 

Các phiên bản Access sau này có nhiều thay đổi, cải tiến nên chắc chắn sẽ có nhiều tính năng bị loại bỏ, thay đổi. Do đó nếu anh đã quen viết trên nền Access 2003 thì phải cập nhật lại rồi.
Em đã sửa lại file của anh với cách làm khác cho đỡ rườm rà bẫy lỗi các kiểu.
Anh xem bài này và tải file: https://thuthuataccess.com/forum/post-51...l#pid51232