Trả lời:
Có lẽ bắt mới bắt đầu tập viết code, bạn không nên copy từ ứng dụng của người khác khi chưa thông hiểu hết các ý nghĩa của nó.
* Ở 2 nút: Hạn chế sử dụng "On Error Resume Next" = Bỏ qua tất cả các lỗi nếu có, thế thích khi chạy code này, nếu gặp lỗi đoạn nào thì nó sẽ không tô màu vàng cho bạn xem để chỉnh.
* Nút thêm của bạn ý nghĩa như thế này: Hành động nhấn nút: có Tối thiểu hai hành động được thực hiện.
1. Nếu ô Tenbn rỗng thì khôi phục lại ( undo).
2. Thực hiện tiếp Di chuyến đến ô Tenbn.
3. Thêm mới.
=> Lỗi phát biểu hành động 1.
Khuyến nghị, đọc bài này:
[Thủ Thuật] Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)
Trong Demo trên, để ý 2 dòng trong code là đủ:
' Them moi
DoCmd.GoToRecord , , acNewRec
' Xoa
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 '' Thay thế dòng này và dòng dưới bằng .......acCmdSaveRecord ( Lưu)
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "Da xoa"