KheNgot > 17-04-20, 01:16 AM
tranthanhan1962 > 17-04-20, 09:21 AM
lamvankhanh > 17-04-20, 11:22 AM
(17-04-20, 01:16 AM)KheNgot Đã viết: Chào cả nhà!
Em đang tạo sổ quỹ tiền mặt trên form. Em loay hoay mã không thực hiện việc thiết lập được việc cộng dồn lũy kế của sổ quỹ tiền mặt? Trên report thì em làm ok. Vì em muốn check thông tin trên form nên em đã tạo như vậy.
Link tải: https://drive.google.com/open?id=1DmQ6uz...fAsWOGcff2
Cám ơn mọi người nhiều!
Xuân Thanh > 17-04-20, 01:11 PM
(17-04-20, 01:16 AM)KheNgot Đã viết: Chào cả nhà!
Em đang tạo sổ quỹ tiền mặt trên form. Em loay hoay mã không thực hiện việc thiết lập được việc cộng dồn lũy kế của sổ quỹ tiền mặt? Trên report thì em làm ok. Vì em muốn check thông tin trên form nên em đã tạo như vậy.
Link tải: https://drive.google.com/open?id=1DmQ6uz...fAsWOGcff2
Cám ơn mọi người nhiều!
KheNgot > 17-04-20, 10:46 PM
lamvankhanh > 18-04-20, 12:05 PM
Xuân Thanh > 18-04-20, 12:50 PM
lamvankhanh > 18-04-20, 01:10 PM
(17-04-20, 01:16 AM)KheNgot Đã viết: Chào cả nhà!
Em đang tạo sổ quỹ tiền mặt trên form. Em loay hoay mã không thực hiện việc thiết lập được việc cộng dồn lũy kế của sổ quỹ tiền mặt? Trên report thì em làm ok. Vì em muốn check thông tin trên form nên em đã tạo như vậy.
Link tải: https://drive.google.com/open?id=1DmQ6uz...fAsWOGcff2
Cám ơn mọi người nhiều!
KheNgot > 18-04-20, 01:35 PM
(18-04-20, 12:50 PM)Xuân Thanh Đã viết: Trên form không có chế độ RunningSum như report nên không thể làm như bạn được. Muốn làm phải viết hàm VBA để lọc ra table tạm rồi lấy nó làm nguồn cho form mới được
Xuân Thanh > 18-04-20, 05:46 PM
(18-04-20, 01:35 PM)KheNgot Đã viết: Em rất muốn tạo quỹ này trên form để theo tác và lấy thông tin cho tiện. Nếu thiết lập được như thế này thì em sẽ làm thêm được các phần khác tương tự được. Anh @Xuân Thanh có thể demo cho em 1 bản để tham khảo nhé!
Cám ơn anh nhiều!
Option Compare Database
Option Explicit
Function SoQuy(TuNgay As Date, DenNgay As Date)
'Dinh nghia bien
Dim DB As DAO.Database, rs As DAO.Recordset, rq As DAO.Recordset
Dim qry As DAO.QueryDef, Ton As Double, rd As DAO.Recordset
Set DB = CurrentDb
Set rq = DB.OpenRecordset("tblSoQuy", dbOpenTable)
Set rd = DB.OpenRecordset("tblTonDau", dbOpenTable)
Set qry = DB.QueryDefs("qryPSQuy")
Set rs = qry.OpenRecordset
'Xoa tblSoQuy, tblTonDau
If rq.RecordCount > 0 Then DB.Execute "Delete From tblSoQuy"
If rd.RecordCount > 0 Then DB.Execute "Delete From tblTonDau"
'Tinh Ton Dau
Ton = 0
If rs.RecordCount > 0 Then rs.MoveFirst
Do Until rs.EOF
If rs!Ngay >= TuNgay Then Exit Do
Ton = Ton + rs!Thu - rs!Chi
rs.MoveNext
Loop
rd.AddNew
If Ton > 0 Then rd!TonDau = Ton Else rd!TonDau = 0
rd.Update
'Cap Nhat Phat Sinh Va Ton Cuoi Ngay
If rs.RecordCount > 0 Then rs.MoveFirst
Do Until rs.EOF
If rs!Ngay >= TuNgay And rs!Ngay <= DenNgay Then
'TonDau = Ton
rq.AddNew
rq!Ngay = rs!Ngay
rq!SoCT = rs!SoCT
rq!IDoiTuong = rs!IDoiTuong
rq!DienGiai = rs!DienGiai
rq!TonDau = Ton
rq!Thu = rs!Thu
rq!Chi = rs!Chi
rq!Ton = Ton + rs!Thu - rs!Chi
Ton = rq!Ton
rq.Update
End If
rs.MoveNext
Loop
'Xoa bien
rs.Close: rq.Close: rd.Close
Set rs = Nothing: Set rq = Nothing: Set rd = Nothing
End Function