How to automatically generate monthly fees and using date to update a control on form

[ijaz1976]

hello
i have a database which stores records about students it has a form named "fee voucher"
form has following fields:
--------------------------------------
student name
father name
class
issue date
due date
monthly fee
annual fund
registration charges
van charges
security fee
others
arrears
total
late fee fine
Grand total
-------------------------------------
now i want that on 11th of every month if fee is not submitted "late fee fine" field automatically get a value of Rs100 and if fee is not submitted till 15th of every month field value become doubled (Rs200) before 11th the value should be Rs0. i searched on google but did find any answer to my question. i have posted here a thread containing this and all questions before but no luck now i m asking only one problem from that thread.
(sorry for not posting link because my posts are only 5 till now
any help will be highly appreciated.
thanks in advance

 

[vbaInet]

In the Control Source of late fee fine textbox:

=IIF(Nz([[COLOR=Red]Monthly Fee[/COLOR]], 0) = 0, IIF(Day([[COLOR=Red]Due Date[/COLOR]]) > 14, "Rs200", IIF(Day([[COLOR=Red]Due Date[/COLOR]]) > 10, "Rs100", Null)))

Amend the red bits where necessary.

 

[ijaz1976]

thanks you very much i will try and then tell you the results.

 

[ijaz1976]

it is working fine but without Rs if i include Rs sign in expression the grand total field indicates error now problem is how i include currency sign in this expression because this is a currency field.

 

[vbaInet]

Change the FORMAT property of the textbox to Currency.

 

[ijaz1976]

format of this field is already currency

 

[vbaInet]

If the format is Currency then remove Rs and it should work.

 

[ijaz1976]

it is working fine but without Rs if i include Rs sign in expression the grand total field indicates error now problem is how i include currency sign in this expression because this is a currency field.

thanks for your response
i already stated above that it is working without "Rs" sign but i want to include "Rs" sign because of currency field.

 

[vbaInet]

This is what the Currency format does. What sign does the Currency format add to it at the moment?

 

[ijaz1976]

you can see it yourself when it do not match criteria then it shows "Rs 0.00" but when it meets the criteria it only shows "100.00" or "200.00" without "Rs" sign.

 

[vbaInet]

It just needed to be a number instead of string. Here you go:

=IIf(Day([DueDate])>14,200,IIf(Day([DueDate])>10,100,0))

By the way, I noticed you took out the first part of the formula.

 

[ijaz1976]

thank you very very much Mr vbainet now its working fine.

By the way, I noticed you took out the first part of the formula.

what do you meant by that i think this part of formula is enough for my needs do you suggest something else.

 

[vbaInet]

Happy to hear!

what do you meant by that i think this part of formula is enough for my needs do you suggest something else.

If that works for you then it's fine.