Mình đang làm một đề tài cải tiến cho phòng mình. Tuy nhiên vì mới tìm hiểu ACCESS nên còn rất nhiều vướng mắc
Mình có một form nhập dữ liệu có cả subform. Nay mình muốn khi nhấn nút xóa bản ghi thì sẽ xóa một lúc record của cả 2 table: DSDOANH NGHIEP & cả record bên table DSHS CHUNG.
CẢM ƠN CÁC BẠN RẤT NHIỀU
File của bạn mình hiện tại mình mở không được cái bạn muốn xóa thì mình đã hiểu: đầu tiên bạn tạo ra 2 query xóa cho 2 bảng sau đó bạn tạo ra một Macro cho cả 2 query này. Bạn thể hiện macro lên menu hoặc thông qua nút lệnh trên forrm. Thế là bạn có thể kích vào xóa 2 bảng này. Chúc bạn thành công.Nguyên văn bởi luisnghia
Cảm ơn bạn đã payment quan tâm trả lời. Vậy bạn có thể cho mình xin câu lệnh macro & làm 1 file ví dụ cụ thể cho mình được ko.
MỘT LẦN NỮA CẢM ƠN BẠN
Bạn cho địa chỉ Email mình sẽ gởi file cho bạnCảm ơn bạn đã payment quan tâm trả lời. Vậy bạn có thể cho mình xin câu lệnh macro & làm 1 file ví dụ cụ thể cho mình được ko.
MỘT LẦN NỮA CẢM ƠN BẠN
Bạn muốn xóa bản ghi thì phải có tham chiếu (điều kiện) đúng không a?
Bạn tạo một sub đặt dưới cmdclick. Mình chứ viết code, nhưng đại loại là:
Bạn set hai recordset cho hai table trên.
Tiếp tục tìm trong hai recordset đó, nếu gặp record nào phù hợp với điều kiện thì xóa.
haquocquan ơi, bạn luisnghia hỏi những cái mình nghĩ phần cơ bản của access thôi. Theo mình thì ko cần đặt dưới cmdclick chi cho phức tạp có thể người ta ko thể thực hiện được. Mình chỉ cần tạo query tham chiếu (điều kiện ) rồi tạo tiếp query xóa là được thôi. Mình gởi file mẫu qua Email cho luisnghia tham khảo.
Kể cả tạo query, bạn muốn chạy query từ form, thì cũng phải cmdclick. Mình cũng học từ căn bản, nhưng có một vấn đề là trong DB phải tạo ra nhiều object. Cho nên mình có hướng dùng code.
Mình sẽ cố gắng gửi code để các bạn và PRO tham khảo
thay đổi nội dung bởi: haquocquan, ngày 09-12-2009 lúc 13:44
bạn hauocquan oi mình gửi mail reply cho bạn rồi bạn xem giúp mình với
Mình không nhận được email của bạn. Bạn làm thế này nhé: bạn có textbox trên form để làm điều kiện (bản ghi phù hợp điều kiện thì xóa),chẳng hạn điều kiện là masodn. Bạn viết code cho một nút lệnh:
Private Sub cmdXoa_Click()
Dim DB as database
Dim RS1 as recordset
Dim RS2 as recordset
Set DB = currentdb()
Set RS1 = DB.Openrecordset("DSDOANHNGHIEP", dbOpentable)
Set RS2 = DB.Openrecordset("DSHSCHUNG", dbOpentable)
' Xóa ở DSDOANHNGHIEP
Do until RS1.EOF
If RS1!masodn = me.textbox.value then
RS.Delete
Endif
Loop
' Xóa ở DSHSCHUNG
Do until RS2.EOF
If RS1!masodn = me.textbox.value then
RS.Delete
Endif
Loop
RS1.Close
Set RS1 = Nothing
RS2.Close
Set RS2 = Nothing
Db.Close
Set BD= Nothing
End Sub
Bạn thử nhé. Mình chưa thử (nhớ sao lưu trước khi thử)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Quyền hạn của bạn
Trả Lời Với Trích Dẫn
