Nhờ giúp đỡ code Delete Record
DoquangLam > 27-09-11, 08:56 PM
Tôi có 2 code xoá như sau :
Code 1 :
On Error GoTo Err_Xoa_Click
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Xoa_Click:
Exit Sub
Err_Xoa_Click:
MsgBox Err.Description
Resume Exit_Xoa_Click
'''''''''''
Code 2:
On Error GoTo LOIXOA
If MsgBox("Th«ng b¸o :" & Chr(13) & _
"B¹n muèn xo¸ phiÕu kÕt chuyÓn ngµy : " & Me.NgayGhiSo & " ph¶i kh«ng ? NÕu xo¸ chän Yes, ngîc l¹i chän No", vbYesNo, vblnformation) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Exit Sub
End If
LOIXOA:
MsgBox "Th«ng b¸o : " & Chr(13) & _
Cha xo¸ ®îc, cã thÓ ph¶i thùc hiÖn nhiÒu lÇn míi xo¸ ®îc sè liÖu trªn chøng tõ nµy.", vbInformation
Xin hỏi : Code 1, bấm vào là xoá được liên, code 2 bấm nhiều lần mới xoá được. Không biết lý do gì. Mong các bạn hướng dẫn.
Xin cám ơn !