• xu li code nut xoa
  • xu li code nut xoa

    nguyenhoangbanhan > 17-06-15, 11:47 AM

    sao em xoa no xoa nhung ngay dong xoa no coi hang chu delete nhu the nay ne, may bac giup dum em http://www.mediafire.com/view/5dpekd9cju...itled2.png[/img]
    code xoa cua em nhu the nay ne:
    [/php] Private Sub xoa_Click()
    If MsgBox("ban co thuc su muon xoa mau tin nay khong", vbYesNo + vbQuestion, " thong bao") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.GoToRecord , , acLast
    xoa.SetFocus
    End If


    End Sub
  • RE: xu li code nut xoa

    ongke0711 > 17-06-15, 01:51 PM

    Xóa xong Requery cái RecordSource để cập nhật lại.
  • RE: xu li code nut xoa

    maidinhdan > 17-06-15, 05:56 PM

    Sửa lại
    Mã PHP:
    Private Sub xoa_Click()
    If 
    MsgBox("ban co thuc su muon xoa mau tin nay khong"vbYesNo vbQuestion" thong bao") = vbYes Then
        DoCmd
    .SetWarnings False
        DoCmd
    .RunCommand acCmdDeleteRecord
        DoCmd
    .GoToRecord , , acLast
        Docmd
    .Requery
    End 
    If  
    End Sub