[alex]

Δημήτρη καλημέρα

Τελικά με κώδικα ενημερώνω τον πίνακα T_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕΩΝ_ΠΕΛΑΤΗ με την εξώφληση του πελάτη κανω ταμείο ημέρας και ενημερώνεται ο πίνακας t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕΩΝ_ΠΕΛΑΤΗ καθώς και ο πίνακας tblRoomsLet με τον παλιό κώδικα όπως ήταν.

'ΕΝΗΜΕΡΩΣΗ ΑΡΧΕΙΟΥ t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕΩΝ_ΠΕΛΑΤΗ με το ΠοσόΠληρωμών
Set tbl1 = db.OpenRecordset("ΠληρωμέςΠελατών")
Set tbl2 = db.OpenRecordset("t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕ� �Ν_ΠΕΛΑΤΗ")
Do Until tbl1.EOF
tbl2.MoveFirst
Do Until tbl2.EOF
tbl2.Edit
tbl2![ΠοσόΠληρωμών] = tbl2![ΠοσόΠληρωμών] + tbl1![ΠοσόΠληρωμής]
tbl2.Update
tbl1.Edit
tbl1.Update
tbl2.MoveNext
Loop
tbl1.MoveNext
Loop
tbl1.Close
tbl2.Close

'ΕΝΗΜΕΡΩΣΗ ΑΡΧΕΙΟΥ t_ΙΣΤΟΡΙΚΟ_ΠΑΡΟΧΩΝ με το ΠοσόΠαροχών
Set tbl1 = db.OpenRecordset("ΠελάτεςΠαροχές query")
Set tbl2 = db.OpenRecordset("t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕ� �Ν_ΠΕΛΑΤΗ")
Do Until tbl1.EOF
tbl2.MoveFirst
Do Until tbl2.EOF
tbl2.Edit
tbl2![ΠοσόΠαροχών] = tbl2![ΠοσόΠαροχών] + tbl1![Σύνολο]
tbl2.Update
tbl1.Edit
tbl1.Update
tbl2.MoveNext
Loop
tbl1.MoveNext
Loop
tbl1.Close
tbl2.Close

'ΕΝΗΜΕΡΩΣΗ ΑΡΧΕΙΟΥ (t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕΩΣ_ΠΕΛΑΤΗ) ΜΕ ΤΟ ΠΟΣΟ ΔΙΑΜΟΝΗΣ
Set tbl1 = db.OpenRecordset("ΠληρωμέςΠελατών")
Set tbl2 = db.OpenRecordset("t_ΙΣΤΟΡΙΚΟ_ΚΙΝΗΣΕ� �Σ_ΠΕΛΑΤΗ")
Do Until tbl1.EOF
tbl2.MoveFirst
Do Until tbl2.EOF
tbl2.Edit
tbl2![ΠοσόΔιαμονής] = tbl2![ΠοσόΠληρωμών] - tbl2![ΠοσόΠαροχών]
tbl2.Update
tbl1.Edit
tbl1.Update
tbl2.MoveNext
Loop
tbl1.MoveNext
Loop
tbl1.Close
tbl2.Close

Φιλικά/Αλέξανδρος