Em đang làm một report tính tồn lũy kế của thu chi theo từng dòng phát sinh, em có tham khảo một bài viết trên diễn đàn (xem hướng dẫn phía dưới) nhưng em vẫn làm chưa được, các bạn vui lòng hướng dẫn thêm.
http://www.mediafire.com/download/u3kecb...+Chi.accdb

1. Thêm 1 textbox: (trong report detail)
- Name = PSinh
- Data = số tiền phát sinh
- Visible = false
- running sum = overgroup (do cái overgroup này mà phải dùng riêng 1 cái textbox, không dùng cái StienPS có sẵn).
2. textbox số dư cuối (từng dòng, trong report detail)
- Data = dư đầu kỳ + PSinh

Với điều kiện dư đầu kỳ cũng theo nguyên tắc dương nếu dư nợ và âm nếu dư có.

Bằng cách này mở rộng ra có thể làm số dư nợ 1 cột riêng, có 1 cột riêng; nếu đầu kỳ nợ riêng có riêng, phát sinh nợ riêng, có riêng.
............................
Nói thêm:
Đây cũng là cách đánh số thứ tự cho report:
tạo 1 textbox data = "=1", Running Sum = Over All

Gửi bạn : http://www.mediafire.com/download/nqy8c8...hu+Chi.mdb
- Nhắc bạn: Trên thực tế bạn không thể chi vượt quá số tiền mình đang có, vì vậy số dư trong sổ thu chi của bạn không thể bị âm (bên có) được. Mình làm report phatsinh_2 để bạn tham khảo thêm để ấp dụng cho trường hợp khác như theo dõi công nợ chẳng hạn.

Cám ơn bạn ketoan_it.
Trân trọng,

Thật ra có nhiều cách để giải quyết vấn đề tính tồn lũy kế theo từng dòng phát sinh trong ngày. Sau đây là 1 cách mình đã làm và sử dụng rất tốt khi làm sổ quỹ tiền mặt.
Đầu tiên bạn phải có 1 bảng dữ liệu, thí dụ T_phatsinh, trong đó có các field SoCT, ngaythang, diengiai, thu, chi. Từ bảng T_phatsinh này bạn chạy query để tạo ra 1 bảng mới T_phatsinh1 trong đó bạn thêm 1 field tonquy có giá trị = thu - chi. Cái bảng này làm nguồn cho Report sổ quỹ TM của bạn đây. Nhưng field tonquy này chỉ là số tiền thu trừ số tiền chi phát sinh trong ngày mà thôi, không phải là tồn quỹ lũy kế như mình mong muốn.
Vậy bạn phải làm thêm 1 bước nữa như sau thì sẽ được như mong muốn.
Dim rs As Recordset
Dim tq As Double
Set rs = CurrentDb.OpenRecordset("T_phatsinh1", 1)
tq = Me.tqDK ' ton quy dau ky
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Tonquy = tq + rs!Tonquy 'Tonquy =Thu- Chi
rs.Update 'sau khi cap nhat xong gia tri tonquy cua 1 record ta gui gia tri nay cho bien trung gian tq
tq = rs!Tonquy
rs.MoveNext
Loop
rs.Close
Chúc bạn vui. Có gì cần hỏi thêm qua email thanhliem0906@yahoo.com mình giúp cho.

Vui quá, có thêm bạn thanhliem0906 hướng dẫn cách mới.
Em gửi lời cám ơn đến anh.
Trân trọng,