>hi,
>thank you it works,
>i'll try to put a message if no records found in newammar66,
>but not works
>

>CLOSE TABLES ALL
>SET DELETED on
>SELECT RECNO() AS delrecno,* FROM newamar66 ;
>WHERE char21=(thisform.text7.value);
>INTO CURSOR tmpAppend
>
>IF EMPTY('tmpAppend')

EMPTY does not mean the table has no records.

IF RECCOUNT('tmpAppend') = 0


>=messagebox("not found")
>   CANCEL
>   else
>
>USE Toto IN 0
>lnScope = THISFORM.text8.Value
>SELECT tmpAppend
>SCAN NEXT lnScope
>     SCATTER NAME oData
>     INSERT INTO Toto FROM NAME oData
>     SELECT newamar66
>     GOTO tmpAppend.delrecno
>     DELETE
>     SELECT tmpAppend
>ENDSCAN
>
>ENDIF
>

>thanks.
>regards.
>m.qasem