Xóa xác nhận khi sử dụng DoCmd.RunSQL cho INSERT và DELETE

Question

Tôi đang sử dụng phương thức DoCmd.RunSQL để chèn và xóa các bản ghi dựa trên các hành động mà người dùng thực hiện trong biểu mẫu. Nó hoạt động tốt nhưng nó yêu cầu xác nhận trước khi xóa hoặc thêm một bản ghi. Làm cách nào tôi có thể xóa xác nhận.

Nhân tiện, sự kiện BeforeDelConfirm dường như không chạy với DoCmd.RunSQL.

Answer 1

Thay vì sử dụng DoCmd.RunSql để chạy SQL và lo lắng về các cảnh báo, bạn có thể sử dụng điều này.

Dim sql as string 
Dim dbs as DAO.Database 
set dbs = CurrentDb() 

sql = "INSERT INTO table(field1) VALUES(1)" 
dbs.Execute sql, dbFailOnError 

dbs.close 
set dbs = nothing