GaDauBac > 29-01-21, 06:29 PM
(29-01-21, 01:18 PM)ongke0711 Đã viết:(29-01-21, 11:13 AM)GaDauBac Đã viết: Cảm ơn anh nhiều! nhưng khi mình tạo 1 Query để thực hiện thì field "IN" (yes/no) không click chọn được, Query gồm tblkhachhang và tblthongtinHD có quan hệ 1-1 (là MaKH và MaHD)
https://www.mediafire.com/file/vssddzxiz...D.rar/file
File ở đây chưa sửa code để chạy cho query ạ.
Query không cho chọn (Edit) là do bạn thiết kế Relationship sai.
Hơn nữa bạn xem lại cách thiết kế Table và quan hệ các Field của nó. Tôi đã sửa lại trong file.
- Một [Mã Khách Hàng] (MaKH) có thể có nhiều Hợp Đồng (SoHD). Bạn phải dự phòng trường hợp này khi thiết kế. Do đó bạn không thể lưu số HĐ và table Khách hàng, nếu sau này có thêm số HĐ mới thì bạn lưu như thế nào (Mã KH là duy nhất)?
- Thông tin HĐ và Chi tiết HĐ là quan hệ Cha - Con thì bạn phải dùng cùng một khoá để tạo quan hệ cho nó là: [Số HĐ].
- Field [IN] cũng không thể nằm trong table Khách hàng. Như đã nói ở trên nếu 1 khách hàng có nhiều hợp đồng thì khi click chọn [IN] trong table khách hàng, nó sẽ in toàn bộ hợp đồng của khách hàng đó, bất kể mới cũ. Do đó chuyển field [IN] sang table Thông tin hợp đồng là chính xác nhất để có thể tuỳ chọn IN từng số HĐ.
Link file: https://www.mediafire.com/file/hue4y3rql...K.zip/file
GaDauBac > 05-03-21, 01:08 PM
ongke0711 > 05-03-21, 03:23 PM
(05-03-21, 01:08 PM)GaDauBac Đã viết: Kính gửi anh ongke0711, Cảm ơn anh đã hướng dẫn cho mình thật nhiều. Nay cũng file xuất ra Word & PDF, mình muốn sử dụng 1 combo lọc chỉ 1 số HĐ chính xác để xuất sang file word hoặc PDF. Lọc thì được nhưng khi xuất ra là báo lỗi. Nhờ anh hướng dẫn và sửa hộ. (file kèm theo)
GaDauBac > 05-03-21, 05:28 PM
(05-03-21, 03:23 PM)ongke0711 Đã viết:(05-03-21, 01:08 PM)GaDauBac Đã viết: Kính gửi anh ongke0711, Cảm ơn anh đã hướng dẫn cho mình thật nhiều. Nay cũng file xuất ra Word & PDF, mình muốn sử dụng 1 combo lọc chỉ 1 số HĐ chính xác để xuất sang file word hoặc PDF. Lọc thì được nhưng khi xuất ra là báo lỗi. Nhờ anh hướng dẫn và sửa hộ. (file kèm theo)
Lỗi này phát sinh do bạn có thêm điều kiện trong Query.
Trong code VBA, khai báo Recordset lấy từ QueryDef mà cái QueryDef này có thêm điều kiện lọc thì bạn phải khai báo thêm dòng điều kiện này (Parameter) trong code VBA thì nó mới hiểu.
Trong code VBA, kiếm đoạn code màu xanh và thêm dòng code màu đỏ vào như bên dưới:
--------------------------------------------------------------------------------------
Set qdf = CurrentDb.QueryDefs("qrKhachHang_XuatHD")
qdf.Parameters(0).Value = [Forms]![frmXuatHopDong]![cboSoHD]
Set rst = qdf.OpenRecordset
--------------------------------------------------------------------------------------