I must have asked Mohammed the same question a millions times!
>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