mqhuan123 > 18-06-19, 04:12 PM
tranthanhan1962 > 18-06-19, 05:44 PM
(18-06-19, 04:12 PM)mqhuan123 Đã viết: Chào mọi người mình đang tạo nút lệnh trên form, mọi người cho mình xin code nút lệnh " Hỏi trước khi xóa với"Khi xóa record thì access sẽ có msgbox hỏi bắng tiếng tiếng Anh trước khi xóa. Nếu muốn chuyển sang tiếng Việt thì phải xử lý lệnh cho event BeforeDelConfirm của Form.
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox "Xóa thật không?", vbQuestion + vbYesNo, "Chú ý"
If n_Reply = vbNo Then
Cancel = True
End If
End SubPrivate Sub NutXoa_Click()
On Error GoTo Biloi
DoCmd.RunCommand acCmdDeleteRecord
Biloi:
End SubPrivate Sub cmdDel_Click()
DoCmd.RunCommand acCmdDeleteRecord
End Submqhuan123 > 25-06-19, 12:06 PM
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Dim n_Reply As Integer
Response = acDataErrContinue
n_Reply = msgBox "Xóa thật không?", vbQuestion + vbYesNo, "Chú ý"
If n_Reply = vbNo Then
Cancel = True
End If
End SubPrivate Sub NutXoa_Click()
On Error GoTo Biloi
DoCmd.RunCommand acCmdDeleteRecord
Biloi:
End Subongke0711 > 25-06-19, 01:43 PM