Hi ---
In the Init of the TextBox, put:
THIS.Value=100-(database.field*100)
THIS.Refresh()
In the LostFocus of the TextBox, put:
REPLACE database.field WITH 1.00-(THIS.Value*.01)
Do not set a ControlSource for the Textbox, and make sure that you have your InputMask set the right way (probably "999")
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05