Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xóa Record theo điều kiện!
#1
Xóa Record theo điều kiện!027
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.....
Chữ ký của zero_love Xin chào, mình là zero_love, Tham gia http://thuthuataccess.com/forum từ ngày 22-02 -13.
Reply
Những người đã cảm ơn
#2
(30-03-13, 03:17 PM)zero_love Đã viết: Xóa Record theo điều kiện!027
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Tìm Record Có Giá Trị Gần Đúng Phung Duc 4 74 07-12-16, 05:09 PM
Bài mới nhất: ongke0711
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 627 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  Lỗi Access 2003 bị đóng băng theo hàng. imt0osexy 7 480 18-06-16, 11:19 AM
Bài mới nhất: maidinhdan
  phân quyền chọn lớp và nhập thông tin theo tên đăng nhập honglv157 10 519 18-05-16, 01:29 PM
Bài mới nhất: hungle2006
  [Help] Đếm số record trong subform dạng datasheet sau kết quả tìm kiếm tvn_hut 5 357 02-01-16, 11:32 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ