hi all,
any idea, help
i try to run this code under via myform i get error message

file must be opend exclusivly ?

CLOSE ALL
USE (thisform.text3.value) exclusive
index on (thisform.text1.value) TAG(thisform.text1.value)
select sys(2015) as SortOrder,* from (thisform.text3.value) ;
 order by 1 descending ;
 into cursor crsTemp nofilter
 SELECT (thisform.text3.value)&&& error message above
 BROW
zap
select crsTemp
scan
 if !seek(thisform.text1.value,'(thisform.text3.value)','(thisform.text1.value)')
   scatter memvar memo
   insert into (thisform.text3.value) from memvar
 endif
endscan
brow

but i try as under it works

CLOSE all
*use AMMAN_REGION exclusive
*USE alldat exclusive
USE ADSL_ALL exclusive
index on CLIENT tag CLIENT
select sys(2015) as SortOrder,* from ADSL_ALL ;
 order by 1 descending ;
 into cursor crsTemp nofilter
select ADSL_ALL
zap
select crsTemp
scan
 if !seek(CLIENT,'ADSL_ALL','CLIENT')
   scatter memvar memo
   insert into ADSL_ALL from memvar
 endif
endscan
brow

thanks