mrtoanbin > 29-01-18, 02:19 PM
(29-01-18, 02:52 AM)MTNQ Đã viết: Của bạn đây:
http://www.mediafire.com/file/oiagbalkak...istBox.rar
-Cách đơn giản nhất là bạn tạo một query (VD: qryTest) trống sau đó gán câu SQL sau khi đã lọc vào:
VD cuối hàm search() của bạn chèn dòng lệnh này vào:
Mã:CurrentDb.QueryDefs("qryTest").SQL = strSQL & strWhere
-Từ query trên bạn có thể tạo Report, table, xuất ra excel... tùy ý
(Lưu ý việc tạo và xóa table liên tục sẽ làm cho dung lượng của ứng dụng mau chóng phình to nên phải có chế độ Compact thường xuyên)
-Do file bạn gởi lên là mdb mà Format @ trong table Db của bạn không được hỗ trợ trong Access 2003 nên MTNQ đã tạm xóa đi
-Trong Demo mình đã đặt thuộc tính Default Value của combobox Cb_QQ là: [Cb_QQ].[ItemData](0) và thêm Call search vào sự kiện Form_Load nhằm lọc ngay khi mở
(Luôn lọc theo một điều kiện nào đó khi mở form tìm kiếm là việc nên làm để tránh load quá nhiều dữ liệu lên form)
-Bạn nên dùng Sub form thay cho ListBox:
->Sub form dạng Datasheet thì người dùng có thể điều chỉnh được chiều rộng cột tùy ý hoặc sort theo tên họ,...
->Không bị giới hạn 65 535 (khoảng trên 65000 dòng) như listbox và còn rất nhiều thứ khác bạn có thể dễ dàng code trên subform mà không làm được với Listbox...
-Hàm xuất trực tiếp Listbox re excel là mình làm cho vui thôi chứ thực tế không ai làm vậy vì sẽ rất chậm nếu có nhiều dữ liệu
-Cuối cùng Demo chỉ là gợi ý cách làm thôi, nó không phải là các hàm hoàn chỉnh (chưa test hết các lỗi), bạn nên đọc, hiểu và tùy biến. chỗ nào không hiểu thì cứ hỏi nhé!