Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Một số Query bạn chỉ cần lấy 1 lần rồi sau đó khi có sự thay đổi dữ liệu gốc trong file Access, bạn chỉ cần nhấn Refresh, dữ liệu sẽ tự động update. Đặc biệt là các Query nhằm tạo báo cáo tổng hợp như: Tổng hợp công nợ nhà cung cấp, tổng hợp công nợ khách hàng, tổng hợp nhập xuất tồn vật tư hàng hoá, Bảng cân đối phát sinh. | LẤY QUERY BẰNG LỆNH VBA Một số Query bạn chỉ cần lấy 1 lần rồi sau đó khi có sự thay đổi dữ liệu gốc trong file Access bạn chỉ cần nhấn Refresh dữ liệu sẽ tự động update. Đặc biệt là các Query nhằm tạo báo cáo tổng hợp như Tổng hợp công nợ nhà cung cấp tổng hợp công nợ khách hàng tổng hợp nhập xuất tồn vật tư hàng hoá Bảng cân đối phát sinh. Riêng những báo cáo chi tiết như Sổ Chi tiết nhập xuất 1 mặt hàng Sổ chi tiết công nợ 1 khách hàng sổ cái tài khoản chúng ta thấy khá là khổ công nếu làm cho mỗi đối tượng hoặc mỗi tài khoản 1 query riêng. Ta nhớ lại khi làm các query loại này ta có sử dụng bộ lọc theo đối tượng. Nếu có cách nào chỉ cần chọn 1 đối tượng trong DS cho vào 1 cell nào đó của Excel rồi Excel tự lấy query xác định trước theo đối tượng đó thì hay. Cái này làm ta liên tưởng ngay đến Macro của VBA. Trước tiên ta cần cái DS đó trước. Giả sử là DS nhà cung cấp và ta muốn các sổ chi tiết công nợ nhà cung cấp. Vậy thì ta thực hành ngay lấy DS bằng VBA Cách dễ nhất để tạo 1 đoạn code VBA mà bạn chả biết tí gì về VBA là Record Macro. Bật record Macro lên làm từng bước để lấy table DSNCC trong file Access chỉ cần 2 trường là đủ. Sau khi kết thúc ra Excel xong tắt record macro. Mở cửa sổ code ra xem ta thấy đoạn code FONT style BACKGROUND-COLOR f5f5ff PHP Code Sub GetData With ActiveSheet.QueryTables.Add Connection Array Array _ ODBC DSN MS Access Database DBQ E Data Thanh My Access Kho KHa ng.mdb _ DefaultDir E Data Thanh My Access DriverId 25 FIL MS Access _ Array MaxBufferSize 2048 PageTimeout 5 _ Destination Range A 1 .CommandText Array _ SELECT DSNCC.msNCC DSNCC.TenNCC Chr 13 Chr 10 _ FROM E Data Thanh My Access Kho KHang .DSNCC DSNCC _ .Name Query from MS Access Database .Refresh BackgroundQuery False End With End Sub Xem cho biết thôi vì cái chính là ta cần cái query Chi tiết nhà CC kia. Lấy lại cái Query Sổ chi tiết nhà cung cấp w Win Engineering ở bài trước mà có record macro ta sẽ có đoạn code PHP Code Sub GetcongnoNCC With ActiveSheet.QueryTables.Add
