Increment a duplicated record

[willinc]

I am seeking help in trying to increment a date field ( by step 1) when I duplicate a record a <calculated field value> number of times. Is there a simple solution using action scripting or would it require something to be written in x dialog

[DaveM]

Re: Increment a duplicated record

try this thread on incrementing a date field:
http://msgboard.alphasoftware.com/al...ad.php?t=80829

[willinc]

Re: Increment a duplicated record

I have tried to download this zip file but when I try to open it the message " failed to save document appears'.
THANKS ANYWAY
Willinc

[Stan Mathews]

Re: Increment a duplicated record

The simple method to increment a date value is, strangely enough,

increment_value(date_field_name)

the hard way is

date_field_name + 1

If you are doing this in a loop you could

for d = 1 to however_many
'other stuff to duplicate the record
date_field_name + d
'stuff to save the duplicated record
next d

[Al Buchholz]

Re: Increment a duplicated record

I have tried to download this zip file but when I try to open it the message " failed to save document appears'.
THANKS ANYWAY
Willinc

You need to unzip these files into a directory. Then create a new database and add the testd table into the database.

[gaby_h]

Re: Increment a duplicated record

If all you need is to increment a date field by 1 each time you create a new record (calendar type):
Make or leave the date field user entered, go to the Form/Browse, enter a starting date, go back to FR turn it into autoinc. Back to the layout, each time you create a new record, the date field is increased by 1 day. HTH

[willinc]

Re: Increment a duplicated record

Thanks for your input gabby but I am not trying to auto increment a new field I am trying to auto increment a existing field x number of times. I have tried to do so using xbasic (which I am useless at) and I can get the record to duplicate but I cannot get the resultant date field to increment. can anyone help ? My attemt at x basic is as follows:-
DIM SHARED daynumber AS n
daynumber = parentform:Days_count.value
for d = 1 to daynumber
topparent.duplicate_record(0)
parentform:First_date.value + 1
topparent.commit()
next d
Thanks in advance
willinc

[Stan Mathews]

Re: Increment a duplicated record

Never tried that approach but it seems like it should be

DIM SHARED daynumber AS n
daynumber = parentformays_count.value
for d = 1 to daynumber
topparent.duplicate_record(0)
[COLOR="Red"]parentform:First_date.value=[/COLOR]parentform:First_date.value + 1
topparent.commit()
next d

This looks a bit strange

parentformays_count.value

should this be

parentform:ays_count.value or

parentform:days_count.value

something mistyped?

[willinc]

Re: Increment a duplicated record

Thanks Stan, I had succeeded in getting the function working using the code below before I read your reply. could you please comment on any improvements that can be made on this
DIM t as p
t=table.current()
DIM SHARED daynumber AS n
daynumber = parentform:Days_count.value
DIM SHARED fstdate AS d
fstdate = parentform:First_date.value
for x = 1 to daynumber
topparent.duplicate_record(0)
fstdate = increment_value(fstdate)
First_date.value = fstdate
topparent.commit()
next x
willinc

[Stan Mathews]

Re: Increment a duplicated record

I think that's basically what I suggested. You can collapse a few things.

DIM SHARED daynumber AS n
DIM SHARED fstdate AS d
daynumber = parentform:days_count.value
fstdate = parentform:First_date.value
for x = 1 to daynumber
topparent.duplicate_record(0)
First_date.value = increment_value(fstdate)
topparent.commit()
next x

You aren't using the t=table.current() so I took that out. Not sure of the purpose of diming the two of the variables as shared unless you're using them in another script.

[willinc]

Re: Increment a duplicated record

Thank you Stan. I have a very limited knowledge of xbasic and after many years i am trying to write some code. I am still trying to get my head around some of the required elements. But now you have pointed out the meaning of things like 'SHARED' I will continue with the code and hopefully improve.