DELETE FROM (ma) as original WHERE EXISTS(SELECT * FROM NEWADSL as copy WHERE copy.telno==original.telno)>1. CLEAR EVENTS causes vfp to jump to any code after a READ EVENTS, therefore the DELETE is not executed at all. => removed that line
>ma=JUSTSTEM(thisform.text1.value) >USE (ma) >*total = "8000" >total = Val(THISFORM.TEXT2.VALUE) >RAND(-1) >INDEX ON RAND() TO SYS(2023)+'\RANDOM' >COPY TO NEWADSL NEXT total >SET INDEX TO >ERASE SYS(2023)+'\RANDOM' >DELETE FROM (ma) as original WHERE EXISTS(SELECT * FROM NEWADSL as copy WHERE copy.telno==original.telno) >Pack >>