I have 6 actions i made in action scripting. How can i repeat those actions over and over until record number less than 7184. I have done this in the past but cant remember. here is the xbasic but an explanation on action scripting would help if possible.
Thank you
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec1.value = expression_result
'Go to next record in current form at parent level.
topparent:Control_browse1.fetch_next()
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec2.value = expression_result
'Go to next record in current form at parent level.
topparent:Control_browse1.fetch_next()
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec3.value = expression_result
'Go to next record in current form at parent level.
topparent.fetch_next()
Thank you
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec1.value = expression_result
'Go to next record in current form at parent level.
topparent:Control_browse1.fetch_next()
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec2.value = expression_result
'Go to next record in current form at parent level.
topparent:Control_browse1.fetch_next()
'Set 'Value' property of 'Comments' in Form 'main' .
DIM form_name as c
if is_object(topparent.this) then
form_name = topparent.name()+".this"
else
form_name = ""
end if
DELETE expression_result
expression_result = eval("Workdone->Datec",form_name)
parentform:Datec3.value = expression_result
'Go to next record in current form at parent level.
topparent.fetch_next()
Comment