sau

select 0
lRaspuns=.T.
cErr=on('Error')
on error lRaspuns=.F.
use CaleTabela\NumeTabela exclusive
on error &cErr
if lRaspuns
 wait ' Tabela nu este deschisa de altcineva ' ;
  wind time 15
else
 wait ' Tabela este deschisa in retea ' ;
  wind time 15
endif
use
return

Spor !