ma=JUSTSTEM(thisform.text1.value) USE (ma) lcField=telno xval2=JUSTSTEM(thisform.text1.value)+"."+lcField COPY STRUCTURE TO NEWADSL *total = "8000" total = (THISFORM.TEXT2.VALUE) RAND(-1) INDEX ON RAND() TO SYS(2023)+'\RANDOM' COPY TO NEWADSL NEXT &total SET INDEX TO ERASE SYS(2023)+'\RANDOM' CLEAR EVENTS DELETE FROM (ma) WHERE EXISTS(SELECT * FROM NEWADSL WHERE telno==xval2)&& not work pack && not works ***DELETE FROM tagging_data WHERE EXISTS(SELECT * FROM NEWADSL WHERE telno==tagging_data.telno)&&& it worksthanks