Posted by Werner on February 20, 2006i am sitting with a problem.
I have a number sequence: 1-15.
I have a button on my form wich inserts a new record into my database
(Currentley only in dbf format).
Everytime i push the button it must increment a certian field in the database called voucher.
But if the field :Voucher reaches 15 the next insert must start at 1 again. I
managed to get it incrementing by assingning it a var and telling it=1. but how do you get it to start from 1 again after 15 is reached?
Here is the source code:
procedure TForm1.Button1Click(Sender: TObject); var y : integer; begin table1.IndexName := 'voucherdex'; table1.last; y := table1.fieldbyname('voucher').AsInteger; y := y + 1; // Check here if y > 15 then y := 1; table1.insert; table1.fieldbyname('voucher').AsInteger := y; end;
How do i make it count from here again instead of staying stuck at 1?
Thank you for your help
Related Articles and Replies