Automatically deduct Commission on every 31st cycle of payment

[yashuaking]

I have written a small database program with MS ACCESS VBA which is meant to record Daily Savings contributions. It was quite successful but am seeing some lapses in the nearby future which I want to solve now.

In my database, on every 31st Payment cycle, a deduction is made by the system automatically but this is the code I used:

Commission = IIf(PaymentCycle = "31", Rate, IIf(PaymentCycle = "62", Rate, IIf(PaymentCycle = "93", Rate, IIf(PaymentCycle = "124", Rate, IIf(PaymentCycle = "155", Rate, IIf(PaymentCycle = "186", Rate, IIf(PaymentCycle = "217", Rate, IIf(PaymentCycle = "248", Rate, IIf(PaymentCycle = "279", Rate, IIf(PaymentCycle = "310", Rate, IIf(PaymentCycle = "341", Rate, IIf(PaymentCycle = "372", Rate, IIf(PaymentCycle = "402", Rate, IIf(PaymentCycle = "433", Rate, IIf(PaymentCycle = "464", Rate, IIf(PaymentCycle = "495", Rate, IIf(PaymentCycle = "526", Rate, IIf(PaymentCycle = "557", Rate, IIf(PaymentCycle = "588", Rate, IIf(PaymentCycle = "619", Rate, "0"))))))))))))))))))))

This code works with multiples of 31 but what I want to is to write a simple code whereby the system would automatically recognize the MATHEMATICAL multiples of 31 and make deductions or else when the cycle goes beyond 619 according to my code, no deduction would ever be made! I cannot keep adding so many IIf conditions.

If the Payment cycle gets to let say 3720, the system knows that it is a multiple of 31 which is (31*120) and therefore deduction is made.


Hope to find solution here

[jimatqsi]

Look at the MOD function. Your solution will look something like this:

if CLNG([PaymentCycle]) MOD 31 =0 then ...

CLNG is required because the MOD function requires numeric inputs. The MOD function returns the remainder of a division.

Jim

[yashuaking]

Thank you very much Jim. Am going to try this code. I can see it would work. You are my hero for the day!

[yashuaking]

It was perfect to the prefect core! It worked Perfectly to the prefect core! No need to write long line of unnecessary codes! Thank you you very much Jim!

[jimatqsi]

You're welcome :). Thanks for the feedback. It's good to know when we've helped solve a problem.

Jim