Module cộng trừ số lẻ
vodainhan > 24-11-15, 10:14 PM
Nhờ các bạn xem code này cần chỉnh lại gì để khi chạy sẽ tính toán đúng (cộng, trừ trong Table, có số nguyên và số lẻ).
Table có tên "T_THEKHO_NXT" gồm 3 field NHAP, XUAT, TON. Khi chạy 1 Macro (Action: RunCode, congdon()) thì thực hiện tính toán trong Table trên.
CODE NÀY TÍNH ĐÚNG KHI 2 FILED NHAP, XUAT LÀ SỐ NGUYÊN. NHƯNG SẼ TÍNH SAI KHI CÓ SỐ LẺ.
Option Compare Database
Function congdon()
Dim csdl As Database, hoso As Recordset, tl As Double
Set csdl = DBEngine.Workspaces(0).Databases(0)
Set hoso = csdl.OpenRecordset("T_THEKHO_NXT", DB_OPEN_TABLE)
tl = 0
hoso.MoveFirst
Do Until hoso.EOF
tl = tl + hoso!nhap - hoso!xuat
hoso.Edit
hoso!ton = tl
hoso.Update
hoso.MoveNext
Loop
hoso.Close
End Function