-
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