Tùy chọn
Xóa Record theo điều kiện!
- Xóa Record theo điều kiện!
-
Xóa Record theo điều kiện!
zero_love > 30-03-13, 03:17 PM
Xóa Record theo điều kiện!
Mình có 1 vấn đề nho nhỏ mong mọi người giúp đỡ:
- Mình có 1 table Nhan_Khau ( Mank, Hoten, NgaySinh, Gioitinh, DiaChi,Tinhtrang)
- 1 Form có 1 textbox Mank và 1 nút lệnh Xóa.
Vậy mình làm cách nào để xóa Record có Mank của Form = Mank trên Table Nhan_Khau
Vì mới nhập môn nên mình đã tham khảo nhiều bài nhưng ko biết cách áp dụng cụ thể cho trường hợp này.
Hướng dẫn mình viết code nha mọi người..... -
RE: Xóa Record theo điều kiện!
Xuân Thanh > 30-03-13, 04:58 PM
(30-03-13, 03:17 PM)zero_love Đã viết: Xóa Record theo điều kiện!
Mình có 1 vấn đề nho nhỏ mong mọi người giúp đỡ:
- Mình có 1 table Nhan_Khau ( Mank, Hoten, NgaySinh, Gioitinh, DiaChi,Tinhtrang)
- 1 Form có 1 textbox Mank và 1 nút lệnh Xóa.
Vậy mình làm cách nào để xóa Record có Mank của Form = Mank trên Table Nhan_Khau
Vì mới nhập môn nên mình đã tham khảo nhiều bài nhưng ko biết cách áp dụng cụ thể cho trường hợp này.
Hướng dẫn mình viết code nha mọi người.....
1/ Dùng một câu lệnh truy vấn xóa để xóa
Mã PHP:Sub DelRecord()
Dim CauSQL As String
CauSQL = "DELETE * FROM NhanKhau WHERE MaNK = '" & Forms!frmDelRecord!MaNK & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL CauSQL
DoCmd.SetWarnings True
End Sub
2/ Dùng Recordset duyệt qua từng Record của table NhanKhau, gặp Record nào có MaNK = MaNK trên form thì xóa
Mã PHP:Sub DeleteRecord()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NhanKhau", dbOpenTable)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If rs!MaNK = Forms!frmDelRecord!MaNK Then
rs.Delete
End If
rs.MoveNext
Loop
End If
End Sub
3/ câu lệnh cho nút Xóa
Mã PHP:Private Sub Xoa_Click()
Call DelRecord
' or Call DeleteRecord
End Sub
Chỉ thực hiện được khi MaNK trong table NhanKhau không bị ràng buộc bởi các điều kiện của các table khác. Nếu không sẽ bị báo lỗi
Thân mến