Dear Erik Moore,
Thanks for your help. Your code sample is very great for me.
Best regard,
NO.
>>
>>For this sample I have trouble that error "Database access deny" I thinks it is so because at the begining of my program I use "set excl on"
>> Thanks for your time.
>
>SET EXCLUSIVE is one of a list of commands that are scoped to a datasession. So if you SET EXCLUSIVE ON at the beginning of your program, and open a table in form, your setting is ignored, unless you have issued it in that form's method code.
>
>To check to see if anyone else is using the table, just check to see if you can open it exclusively
>
>

>lcOldOnError = ON('ERROR') && save the error handler
>*The next line ignores any errors (we would get a file access denied error
>* if the table cannot be opened exclusively)
>ON ERROR *
>
>USE Sale EXCLUSIVE
>
>* restore the error handler
>ON ERROR &lcOldOnError
>
>IF USED('Sale') && were we able to open the table exclusively?
>* "ALL" is implied with use of the FOR clause
>     DELE FOR SalDate >= A
>     PACK
>ENDIF
>