changkhoonline77 > 05-06-13, 12:26 PM
Xuân Thanh > 05-06-13, 12:50 PM
Private Sub cmdDelete_Click()
Dim rsDel As Recordset
Set rsDel = CurrentDb.OpenRecordset("tblLuuHangHoa", dbOpenTable)
rsDel.AddNew
rsDel!MaHang = Me.MaHang
rsDel!TenHang = Me.TenHang
rsDel!DVT = Me.DVT
rsDel.Update
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From tblHangHoa Where MaHang = '" & Me.MaHang & "'"
DoCmd.SetWarnings True
Me.Requery
End Sub
kuzinhy > 21-05-16, 08:05 AM