Giúp đỡ về vòng lặp để Append dòng vào Table Access (1 người xem)

[ongke0711]

Chào các bạn,

Nhờ bạn hỗ trợ chỉnh sửa code vba (vòng lặp) để append dòng từ table 1 vào table2 thõa điều kiện.
Code hiện tại của mình nó chạy mà không stop được vòng lặp.
File gửi đính kèm.

+ tblNghiDaiHan: có [MSNV],[TuNgay],[DenNgay],[MVM]: nhân viên nghỉ từ ngày đến ngày, mã lý do nghỉ
+ tblLyDoCC: [MSNV],[NgayLD],[MVM],[In],[Out]:
Yêu cầu:
- Lấy [MSNV], [TuNgay],[DenNgay] từ tblNghiDaiHan append vào tblLyDoCC với điều kiện field [DaLuu]=0 (nếu MSNV nào đã lưu lần trước rồi thì không lưu nữa - [DaLuu]=1).
- Trong đó mỗi ngày nghỉ phát sinh trong [TuNgay][DenNgay] sẽ là 1 dòng trong tblLyDoCC (cùng MSNV). vd: Nhân viên ABC nghỉ 3 ngày sẽ là 3 dòng trong tblLyDoCC

Tôi tự học VBA nên code có thể lộn xộn, dài dòng các bạn chỉnh sửa giùm.
Cảm ơn nhiều.

 

[ongke0711]

Có bạn nào hỗ trợ tìm ra sai code ở đoạn nào không? Tôi vẫn chưa làm được.
Tks.

 

[ongke0711]

Đã fix được rồi.
Cảm ơn mọi người đã quan tâm.