Why do you use PACK? You should not use PACK every time you delete records; normally you would do a PACK once a month.
>hi all,
>
>via command button ,i try to delete records from my table as under ,did not works and no error message
>
>
>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)
>pack
>
>***DELETE FROM tagging_data WHERE EXISTS(SELECT * FROM NEWADSL WHERE telno==tagging_data.telno)
>
>
>
>thanks
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
