Loan Adjusted in instalments

[jalals]

Hi
I have to find out the residual loan amount (NetLoanAmt) from the employees database. The employee takes a loan from the school administration. He has to liquidate the Actual Loan Amount (GrossLoanAmount) in 10 equal installments from his monthly salary. There are following fields in the Employee database
1. Employee Id
2. Employee Name
3. GrossSalary
4. GrossLoanAmt
5. Instalment = GrossLoanAmt/10 (could be generated through Query – To remain constant till loan is adjusted)
6. NetSalary=GrossSalary – Instalment (could be generated through Query)
7. NetLoanAmt = GrossLoanAmt-Installment as on a particular date (To be derived after current month salary is paid)


On next salary day the system should deduct the installment from the salary and also generate NetLoanAmt. It should swap till loan is adjusted.
I need a VBA Swap function to generate the same which I could not get after doing some practice.
Please some one help me here
Thanks
Jalal

[jzwp11]

5. Instalment = GrossLoanAmt/10 (could be generated through Query – To remain constant till loan is adjusted)
6. NetSalary=GrossSalary – Instalment (could be generated through Query)
7. NetLoanAmt = GrossLoanAmt-Installment as on a particular date (To be derived after current month salary is paid)

All of these can be calculated but you will need to store the date of the first installment. I assume that the employees are paid on the last day of each month.

This can be done in a query.

Please see the attached database as an example

[jalals]

Hi

jzwp11
Thanks for providing the solution. The formulea worked and hence the thread solved

Thanks once again
Jalal

[jzwp11]

You're welcome.

[sachiaks]

its very helpful thanx