Tùy chọn
Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
- Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
-
RE: Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
Xuân Thanh > 20-04-20, 08:10 AM
Có ai đọc hàm này rồi mở File ra và phát hiện ra điều gì thú vị không nhỉ? -
RE: Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
ongke0711 > 20-04-20, 12:06 PM
Tìm chưa ra anh.
-
RE: Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
Xuân Thanh > 20-04-20, 01:09 PM
(20-04-20, 12:06 PM)ongke0711 Đã viết: Tìm chưa ra anh.
Trong cái DeMo tôi gửi, Mở form F_SoQuyTM lên rồi chạy kết quả từ ngày 02.04.2020 đến ngày hiện tại. Đóng Form lại rồi mở tblSoQuy lên, nhìn vào cái giá trị TonDau của ngày 02.04.2020 ta thấy nó chính là số Tồn đầu kỳ trong tblTonDau,Tồn đầu của ngày 03.04.2020 chính là số Tồn cuối của ngày 02.04.2020..... Vậy ta có thể đưa giá trị này vào form hoặc Report với nhãn là Tồn Đầu Ngày và giá trị của trường Thu có nhãn là Thu Trong Ngày, giá trị của trường Chi có nhãn là Chi Trong Ngày, giá trị của trường TonCuoi có nhãn là Tồn Cuối Ngày. Ta đã có một Form hay Report giống như dạng Nhập Xuất Tồn của Hàng Hóa vậy -
RE: Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
ongke0711 > 20-04-20, 01:41 PM
(20-04-20, 01:09 PM)Xuân Thanh Đã viết: Trong cái DeMo tôi gửi, Mở form F_SoQuyTM lên rồi chạy kết quả từ ngày 02.04.2020 đến ngày hiện tại. Đóng Form lại rồi mở tblSoQuy lên, nhìn vào cái giá trị TonDau của ngày 02.04.2020 ta thấy nó chính là số Tồn đầu kỳ trong tblTonDau,Tồn đầu của ngày 03.04.2020 chính là số Tồn cuối của ngày 02.04.2020..... Vậy ta có thể đưa giá trị này vào form hoặc Report với nhãn là Tồn Đầu Ngày và giá trị của trường Thu có nhãn là Thu Trong Ngày, giá trị của trường Chi có nhãn là Chi Trong Ngày, giá trị của trường TonCuoi có nhãn là Tồn Cuối Ngày. Ta đã có một Form hay Report giống như dạng Nhập Xuất Tồn của Hàng Hóa vậy
Nếu không dùng code VBA thì dùng Subquery cũng tính được Tồn đầu, tồn cuối. Vấn đề chỉ là chưa thử nghiệm trên CSDL lớn xem tốc độ thực thi như thế nào. Có thể code sẽ nhanh hơn Subquery.
Mã PHP:SELECT qryPSQuy.Ngay, qryPSQuy.IDoiTuong, qryPSQuy.SoCT, qryPSQuy.TenDoiTuong, qryPSQuy.NguoiNN, qryPSQuy.DienGiai, (SELECT Nz(sum(Thu))-Nz(sum(Chi))
FROM qryPSQuy as prev
WHERE (prev.SoCT < qryPSQuy.SoCT) ) AS TonDau, qryPSQuy.Thu, qryPSQuy.Chi, Nz(TonDau)+Nz(Thu)-Nz(Chi) AS TonCuoi
FROM qryPSQuy
ORDER BY qryPSQuy.SoCT;
Trong code anh Thanh có một lưu ý là dùng RecordCount. Khi em dùng cái này thì luôn đi theo:
rs.MoveLast
rs.MoveFirst
rs.RecordCount
Tại sao: vì cái thuộc tính RecordCount nào không tin tưởng 100% được đối với CSDL lớn.
RecordCount sẽ lấy số record mà nó xử lý (đọc) xong chứ không phải toàn bộ record của Table. Tức là khi anh mở một Table 10.000 dòng, thì Access sẽ mất 1s, 2s mới hiển thị tổng số record của Table đó ở phía dưới Table, khi hiển thị tức là Access đã đọc xong toàn bộ record. Nếu trước khi nó đọc xong table mà lấy RecordCount nó sẽ không chính xác.
Đối với CSDL ít, Access nó đọc toàn bộ record trong chớp mắt nên RecordCount không có sai số. Nhưng đối với CSDL lớn nhiều ngàn dòng thì việc rs.MoveLast cũng ngốn tài nguyên máy.
Còn câu lệnh này: đằng nào cũng xoá trắng Table thì chạy lệnh DB.Execute luôn, khỏi cần kiểm tra để khỏi chậm 1 nhịp.
Mã PHP:If rq.RecordCount > 0 Then DB.Execute "Delete From tblSoQuy" -
RE: Thiết lập trường cộng dồn lũy kế trên form quỹ tiền mặt
Xuân Thanh > 20-04-20, 02:08 PM
1/ Dùng rs.MoveLast, rs.MoveFirst, rs.RecordCount đi kèm là đúng nhất khí CSDL lớn. Ở đây Demo nhỏ nên tôi bỏ qua. Các bạn chú ý điều này
2/ Dùng SubQuery cũng tính ra nhưng tốc đọ chậm là cái chắc vì là query lồng mà
3/ Cái lệnh xóa Table tôi chưa thử khi table không có dữ liệu vì tôi quen dùng cái này rồi. Có dữ liệu thì xóa, không thì thôi cũng đâu có chậm nhịp