H
Mình tạo 1 nút lệnh "Xoá" với cấu trúc như sau:
Private Sub CMDXOA_Click()
Dim DEM As Integer
DEM = DCount("*", "KEKHAI_THANG", "MADV=FORMS!DON_VI!MADV")
If DEM > 0 Then
If MsgBox("DA CO DU LIEU " & vbNewLine & "BAN CO MUON XOA ?", 36, "THONG BAO") = 6 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM KEKHAI_THANG WHERE MADV=FORMS!DON_VI!MADV"
DoCmd.RunCommand acCmddeleteRecord
DoCmd.SetWarnings True
End If
ElseIf DEM = 0 Then
If MsgBox("KHONG CO DU LIEU " & vbNewLine & "BAN CO MUON XOA ?", 36, "THONG BAO") = 6 Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmddeleteRecord
DoCmd.SetWarnings True
End If
End If
LSTDV.Requery
SANG_MO True
End Sub
Khi click nút xóa thì không xoá được, nó cứ báo lỗi Run-time error '2501' The RunComand action was canceled.
Vậy là sao, các bạn có thể giúp mình được không?
Private Sub CMDXOA_Click()
Dim DEM As Integer
DEM = DCount("*", "KEKHAI_THANG", "MADV=FORMS!DON_VI!MADV")
If DEM > 0 Then
If MsgBox("DA CO DU LIEU " & vbNewLine & "BAN CO MUON XOA ?", 36, "THONG BAO") = 6 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM KEKHAI_THANG WHERE MADV=FORMS!DON_VI!MADV"
DoCmd.RunCommand acCmddeleteRecord
DoCmd.SetWarnings True
End If
ElseIf DEM = 0 Then
If MsgBox("KHONG CO DU LIEU " & vbNewLine & "BAN CO MUON XOA ?", 36, "THONG BAO") = 6 Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmddeleteRecord
DoCmd.SetWarnings True
End If
End If
LSTDV.Requery
SANG_MO True
End Sub
Khi click nút xóa thì không xoá được, nó cứ báo lỗi Run-time error '2501' The RunComand action was canceled.
Vậy là sao, các bạn có thể giúp mình được không?