hi,
thank you for reply,
it works via Mr.Olaf Doschke code.
about
Note the spcae between EXISTS and (SELECT)!?
i try it with space or without space ,no delete
about NB!--- mean what
thanks
regards
m.qasem
>?Repl('Amen!',100) :-)
>
>NB! Mohammed: have you noticed the typo?
>DELETE FROM (ma) WHERE EXISTS (SELECT * FROM NEWADSL WHERE telno==xval2)
>Note the spcae between EXISTS and (SELECT)!
>
>>If you just make him read the HELP :o)))))))))
>>
>>To Mohamed:
>>I don't want to be rough but first read the help, search Solution Samples and if you couldn't find something then ask. But when you ask try to understand the code not just copy and paste and then complain that this code doesn't works. Nobody knows what you are trying ot do. We are also people and we made mistakes also (especialy me). Try to understand what is essence of the code not the exact syntax posted here. If there are/is some syntax errors try to find them by yourself (some missed brackets, some typos in words etc.). Debuger is your best friend.
>>
>>
>>>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