>>>>>Hi,
>>>>>
>>>>>The only way I know how to determine if a table is already open under some unknown alias is by trying to open the table exclusive and catching the error. Is there another way, maybe simpler?
>>>>>
>>>>>TIA.
>>>>
>>>>

>>>>TRY
>>>>  USE YourTable IN 0 EXCLUSIVE
>>>>CATCH
>>>>  MessageBox("The Table is already opened somewhere")
>>>>ENDTRY
>>>>

>>>
>>>Thank you, Borislav. This works but I forgot to mention that I am trying to find out if the file/table is open by "this" user and not by anyone. That is, if another user of this application has this file open (maybe on another computer), the above code will say that the file is already open. But to me this is not important; I need to find out if this datasession has the file open. Do you see what I mean?
>>
>>

>>lnUsedFiles = AUSED(laUsed)
>>lbAlreadyUsed = .f.
>>FOR lnFor = 1 TO m.lnUsedFiles
>>    IF UPPER(JUSTFNAME(DBF(laUsed[lnFor]))) = "THENAMEOFTHEDBF.DBF"
>>       lbAlreadyUsed = .t.
>>       EXIT
>>    ENDIF
>>NEXT
>>IF m.lbAlreadyUsed
>>   MessageBox("The Table is used  in this datasesion")
>>ENDIF
>>

>>
>
>I thought the above would work but it does not. The problem is that I could have the table opened under a different alias loaded in AUSED(). And then I am trying to see if the table is open. For example, if a table MyTable.dbf is open in this datasession under alias MyTable1_Alias and then I am trying to determine if the table MyTable.dbf is open, the above approach would show that NO. But in fact it is open.


Dmitry,

Perhaps this function may be of help.

Pass
- nothing for current workarea
- an alias name
- a workarea


UPDATE

function	GetTableName(wa)
	wa = evl( m.wa, select(0) )
	
	do case
	case !used(m.wa)
		return '???'
		
	case !empty(cursorgetprop('DataBase', m.wa))
		return proper(cursorgetprop('SourceName', m.wa))
	
	otherwise
		return Proper(juststem(dbf(m.wa)))
	
	endcase
endfunc