>USE newamar66 >SET FILTER TO char21=(thisform.text7.value) >USE toto > Append From ('newamar66') next(thisform.text8.Value) >>thanks.
USE toto APPEND FROM newamar66 FOR char21=ThisForm.text8.ValueThere are problems with this if you have deleted records so another approach might be
SELECT * FROM newamar66 ; WHERE char21=thisform.text7.value; INTO CURSOR tmpAppend SELECT 0 USE toto APPEND FROM (DBF('tmpAppend')) USE IN newamar66 USE IN tmpAppend