Xuân Thanh > 09-07-18, 04:56 PM
Function TinhTon(TuNgay As Date, DenNgay As Date)
Dim TC As Recordset
Set TC = CurrentDb.OpenRecordset("tblThuChi", dbOpenTable)
Dim Ton As Recordset
Set Ton = CurrentDb.OpenRecordset("tblTon", dbOpenTable)
'Xoa Table Ton
If Ton.RecordCount > 0 Then CurrentDb.Execute "Delete * From tblTon"
'Tinh Ton Dau
Dim So As Long
So = 0
TC.MoveFirst
Do Until TC.EOF
So = So + TC!TienThu - TC!TienChi
TC.MoveNext
If TC!NgayChungTu >= TuNgay Then Exit Do
Loop
'Tinh Thu Chi Ton Trong Ngay
Do Until TC.EOF
If TC!NgayChungTu >= TuNgay And TC!NgayChungTu <= DenNgay Then
Ton.AddNew
Ton!NgayChungTu = TC!NgayChungTu
Ton!TonDau = So
Ton!TienThu = TC!TienThu
Ton!TienChi = TC!TienChi
Ton!TonCuoi = Ton!TonDau + Ton!TonCuoi + TC!TienThu - TC!TienChi
So = Ton!TonCuoi
Ton.Update
End If
TC.MoveNext
Loop
TC.Close: Ton.Close
End Function
Private Sub cmdBaoCao_Click()
Call TinhTon(Me.txtTuNgay,Me.txtDenNgay)
Docmd.OpenReport "rptThuChi", acViewNormal
End Sub