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"