verificando se o arquivo est� em uso

Question

Caros colegas estou tentando verificar se um arquivo esta em uso por outra esta�ao. Acontece que depois da mensagem informando que o arquivo est� em uso estou tentando fechar o formulario mas n�o est�...

Siam · Answer

Tente retirar o [b:99e59508fc]exit[/b:99e59508fc] abaixo do [b:99e59508fc]except[/b:99e59508fc]....

Ghsol · Answer

carol colega fiz como vc indicou mas mesmo assim ele n�o executa a sequencia de codigo ap�s o erro conforme abaixo:

if deu_erro=true then
begin
f_vendaprazo.close;
f_clientes.edt_nome.setfocus;
exit;
end;

Ghsol · Answer

caros colegas, outro detalhe se retirar o exit deste bloco de c�digo tamb�m aparece a mensagem informando �table is busy�...

Siam · Answer

Pode ser que ele esteja dando outro erro ap�s o [b:7475c57dc5]except[/b:7475c57dc5]....

Amarildo · Answer

Esta rotina tenho usado neste projeto de cheques. Essa rotina ir� identifcar quem esta usando o banco de dados e o registro na rede bloqueando logo em seguida, possibilitando que outros usuarios aguardem a atualiza��o dos dados para posteriormente terem acesso, espero ter ajudado alguem no forum

MODULO.TCHEQUES.IndexFieldNames := �CHQ_NUMERO�;
if MODULO.TCHEQUES.Findkey( [Codigo] ) then
begin
if MessageDlg(�Registro j� existente, deseja alter�-lo?�, mtConfirmation, [MbYes, mbNo], 0) = mrYes then
begin
try
MODULO.TCHEQUES.Edit;
except
on E: Exception do
begin
MessageBeep(0);
Str := E.Message;
if (Pos(�User:�, Str) > 0)
then
Str := Copy(Str,Pos(�User:�, Str)+5, Length(Str))
else
Str := �Usu�rio desconhecido�;
FORMMENSAGEM.LabelUSUARIO.Caption := Str;
FORMMENSAGEM.SHOWMODAL;
DBEDITCONTACORRENTE.SETFOCUS;
end;
end;
end

F�rum verificando se o arquivo est� em uso #331908