>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.