Hi Tracy,

It's great you have found the problem. Since I figured it was a processor speed problem with my app I have been paying particular attention to the way I code various file routines.

I have even had...

IF USED('filename')
    SELECT filename
    USE
ENDIF
DELETE FILE filename.dbf

...give file access denied on a new super fast computer, and have had to put a wait in.

Regards
Doug Johnston




>Only 3 or 4 use the file at any one time and switching to any other machine runs fine. We just noticed this morning a wait between opening the table and setting the order works... a speed issue?
>
>>Hi,
>> How many workstations are using the Database at any one time, also are the local read & write cache settings on the problem workstation the same as the others.
>> Also is the "server" being used as a workstaion as well?
>>
>>Regards
>>
>>>Update: Forgot to mention that the tables all reside on a server and all are Windows XP Professional. None of the other workstations exhibit this error, in fact, when you receive the error if you move to another workstation the same code will run fine. It is in a prg that runs directly from the main menu in the default data session. No forms are even open at this point. The funny thing is that only restarting the SERVER (not the workstation) will free up the file for that workstation once the error occurs. It only happens on ONE workstation and ONLY on that line (after the file is opened and when the index order is set).
>>>
>>>On one machine only in Windows XP Professional we get a file in use error when an index order tag is set. I can verify that the table is open (only once) on the same machine and this error only happens on a single machine (so far). Everything appears identical to other machines when this error occurs (program trace, data environment, etc.)
>>>
>>>

>>>	WAIT WINDOW "Searching Receipts..." NOWAIT
>>>	SELECT 0
>>>*--ERROR DOES NOT OCCUR HERE - the file opens fine
>>>	USE (ddir+"archeadr") ALIAS arcorg
>>>	IF bad_error
>>>		=okay("Receipt file is in use.  Please check other workstations.")
>>>		IF !EMPTY(dbfarea)
>>>			SELECT(dbfarea)
>>>		ENDIF
>>>		RETURN
>>>	ENDIF
>>>*--ERROR OCCURS ON NEXT LINE and error is FILE IS IN USE
>>>	SET ORDER TO TAG profile
>>>	*---Open Transaction File
>>>	USE (ddir+"arctrans") ORDER TAG re_link IN SELECT(1) ALIAS arctrorg
>>>	SET RELATION TO re_link INTO arctrorg
>>>