Tắt thông báo xóa Record hay action query

[bchip]

Các bác cho mình hỏi
- Khi mình xóa một record trên form, access hiện thông báo: "Are you sure you want to delete these records?" Làm sao mình có thể tắt thông báo này và thay thế bằng thông báo theo ý mình vậy ?
- Hay khi mình thực thi một action query thì access cũng hiện thông báo hỏi có muốn thực thi không?

Bác nào biết cách làm bày cho mình với. Thanks nhiều lắm.

 

[xuanthanh]

Ðề: Tắt thông báo xóa Record hay action query

Các bác cho mình hỏi
- Khi mình xóa một record trên form, access hiện thông báo: "Are you sure you want to delete these records?" Làm sao mình có thể tắt thông báo này và thay thế bằng thông báo theo ý mình vậy ?
- Hay khi mình thực thi một action query thì access cũng hiện thông báo hỏi có muốn thực thi không?

Bác nào biết cách làm bày cho mình với. Thanks nhiều lắm.

Nói cụ thể thì hơi khó vì với mỗi loại query khác nhau thì có một câu lệnh chèn thêm khác nhau. bạn đưa file lên tôi chỉ cho cách làm hoặc gửi vào hộp mail của tôi : bachdanggiang_2006@yahoo.com
Thân

 

[phatnq2002]

Ðề: Tắt thông báo xóa Record hay action query

Các bác cho mình hỏi
- Khi mình xóa một record trên form, access hiện thông báo: "Are you sure you want to delete these records?" Làm sao mình có thể tắt thông báo này và thay thế bằng thông báo theo ý mình vậy ?
- Hay khi mình thực thi một action query thì access cũng hiện thông báo hỏi có muốn thực thi không?

Bác nào biết cách làm bày cho mình với. Thanks nhiều lắm.

Với form thì vào Form_BeforeDelConfirm, nhập vào đoạn code sau:
Response = acDataErrContinue
If MsgBox("Co chac chac xoa khong?", vbYesNo+vbDefaultButton2+vbQuestion, "Xac nhan xoa")=vbNo Then
Cancel = True
End If

Với action query thì có thể tắt bằng cách gọi nó trong code hoặc trong macro. Trước khi chạy nó, cho chạy một macro: SetWarnings với thông số Warning On là Yes.

VD: viết trong một thủ tục thích hợp đoạn sau:

DoCmd.SetWarnings True
DoCmd.OpenQuery "tên query action"
DoCmd.SetWarnings False

 

[bchip]

Ðề: Tắt thông báo xóa Record hay action query

Nói cụ thể thì hơi khó vì với mỗi loại query khác nhau thì có một câu lệnh chèn thêm khác nhau. bạn đưa file lên tôi chỉ cho cách làm hoặc gửi vào hộp mail của tôi : bachdanggiang_2006@yahoo.com
Thân

Cám ơn bác, mình đã tìm được giải pháp làm từ anh Phat.

Với form thì vào Form_BeforeDelConfirm, nhập vào đoạn code sau:
Response = acDataErrContinue
If MsgBox("Co chac chac xoa khong?", vbYesNo+vbDefaultButton2+vbQuestion, "Xac nhan xoa")=vbNo Then
Cancel = True
End If

Với action query thì có thể tắt bằng cách gọi nó trong code hoặc trong macro. Trước khi chạy nó, cho chạy một macro: SetWarnings với thông số Warning On là Yes.

VD: viết trong một thủ tục thích hợp đoạn sau:

DoCmd.SetWarnings True
DoCmd.OpenQuery "tên query action"
DoCmd.SetWarnings False

Cám ơn anh, em làm được rồi !
Mới bắt đầu làm lập trình mà được anh Phat giúp đở kiểu này thì còn gì bằng. Chỉ khó là em ở cách SG gần 200km, chứ nếu không em đã mời anh làm một chầu hậu hỉn rùi...

P/s: Àh ! anh cho em xin số phone với, sẽ có lúc em lên SG đấy...

 

[haquocquan]

Ðề: Tắt thông báo xóa Record hay action query

:
Response = acDataErrContinue
If MsgBox("Co chac chac xoa khong?", vbYesNo+vbDefaultButton2+vbQuestion, "Xac nhan xoa")=vbNo Then
Cancel = True
End If

Ngoài ra còn thêm cách nữa:

Private Sub cmdXoa_Click()
DoCmd.SetWarnings False

    If MsgBox("Bạn có chắc chắn xóa", vbYesNo, "Xác nhận") = vbYes Then
    
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    
    End If
DoCmd.SetWarnings True
End Sub

Set False trước, sau khi thực hiện xong set true

:
DoCmd.SetWarnings False
DoCmd.OpenQuery "tên query action"
DoCmd.SetWarnings True