mrtula > 09-05-13, 12:45 PM
bomnhauag > 09-05-13, 04:22 PM
private sub Nut_Click()
CurentDb.Execute("DELETE * FROM [Table của form phụ] WHERE [ID liên kêt form chính]=" & ID form chính)
end submrtula > 10-05-13, 07:52 PM
(09-05-13, 04:22 PM)bomnhauag Đã viết: Bạn tạo 1 cái nút, rồi viết code cho nó khi click vào như sau:
Mã:private sub Nut_Click()
CurentDb.Execute("DELETE * FROM [Table của form phụ] WHERE [ID liên kêt form chính]=" & ID form chính)
end sub
paulsteigel > 10-05-13, 08:07 PM
private sub XoaTienTra_Click()
CurentDb.Execute("DELETE * FROM [TheodoicongnoNCC] WHERE [SoPhieuNhap]=" & SoPhieuNhap)
end sub
mrtula > 10-05-13, 08:27 PM
(10-05-13, 08:07 PM)paulsteigel Đã viết: Bạn hãy gửi file dữ liệu lên đây. Mọi người sẽ giúp.
Hướng dẫn của bạn bomnhauag là đúng hướng rồi, tuy nhiên, cần có thêm một lệnh để làm cho dữ liệu tươi lại (Refresh).
Ví dụ FrmSub.rowsource.requery sau khi thực hiện xóa.
Ngoài ra, để thủ tục này thực hiện được thì bạn cần đặt tham chiếu đến bộ thi viện DAO.
Trong trường hợp không muốn dùng thư viện DAO thì phải dùng ADO với dạng sauMã PHP:private sub XoaTienTra_Click()
CurentDb.Execute("DELETE * FROM [TheodoicongnoNCC] WHERE [SoPhieuNhap]=" & SoPhieuNhap)
end sub
CurrentProject.Connection.Execute thay cho CurrentDB nhé.
paulsteigel > 10-05-13, 09:23 PM
Private Sub cmdDelete_Click()
' Kiem tra xem co dang chon 1 record nao tren subform khong
If Nz(Me.frmTrackingSub.Form.SoPhieuNhap, 0) = 0 Then Exit Sub
If MsgBox("Ban chac chan muon xoa chu?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
CurrentProject.Connection.Execute "Delete * from [Theo doi cong no NCC] where SoPhieuNhap = '" & SoPhieuNhap & "';"
Me.Requery
frmTrackingSub.Form.Requery
End Sub
mrtula > 10-05-13, 11:56 PM
(10-05-13, 09:23 PM)paulsteigel Đã viết: Đây bài trả lời của bạn đây...
http://www.sfdp.net/documents/qlCuahang....ects=0&d=1
Bạn mới dùng Access nên cách đặt tên đối tượng cũng như lô gic thiết kế còn nhiều vấn đề lắm. Mình đã xóa form cũ của bạn và thay thế bằng frmTratien. Hãy xem nút Xóa và Thoát. Bạn bảo thoát và lưu thế nhưng xem code thì chả thấy lưu đâu cả (trong Macro của bạn). Mình sửa thành code vì mình không quen dùng Macro và cũng không thích dùng!
Mình viết code để thực hiện thao tác xóa như vậy đấy. Nếu muốn học access để thiết kế được ứng dụng tốt thì bạn nên học lập trình nhé!Mã PHP:Private Sub cmdDelete_Click()
' Kiem tra xem co dang chon 1 record nao tren subform khong
If Nz(Me.frmTrackingSub.Form.SoPhieuNhap, 0) = 0 Then Exit Sub
If MsgBox("Ban chac chan muon xoa chu?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
CurrentProject.Connection.Execute "Delete * from [Theo doi cong no NCC] where SoPhieuNhap = '" & SoPhieuNhap & "';"
Me.Requery
frmTrackingSub.Form.Requery
End Sub
paulsteigel > 11-05-13, 12:56 AM