Fórum Acesso a bd #168146

Olá pessoal,

Estou com um probleminha em minha aplicação, todos os usuários estão acessando o mesmo registro, em rede.
Eu coloquei em meu formulário de cadastro o seguinte, no evento OnCreate:
-----------------------------------------------------------------------------------
DMDados.TBCadastro.FlushBuffers;
-----------------------------------------------------------------------------------


No evento OnEditError da tabela TBCadastro:
-----------------------------------------------------------------------------------
procedure TDMDados.TBCadastroEditError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
Var
wErro, wRet: Word;
begin
If E is EDBEngineError Then
Begin
wErro:=(E as EDBEngineError).Errors[1].ErrorCode;
If (wErro = 10241) Then
Begin
wRet:=Application.MessageBox(´Outro usuário está editando este registro!´+#13+´Tentar novamente?´,´ARENÇÃO´, MB_YESNO + MB_ICONQUESTION);
If wRet = IDYes Then
Action:=daRetry
Else
Action:=daAbort;
End;
End;

end;
-----------------------------------------------------------------------------------


E no evento OnPostErro da tabela TBCadastro:
-----------------------------------------------------------------------------------
procedure TDMDados.TBCadastroPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then begin ShowMessage(´Duplicação na Chave Primária.´);
action := daAbort;
End;

end;
-----------------------------------------------------------------------------------

Mas só q se um usuário mandar editar um registro q já está sendo utilizado por outro a mensagem não aparece e este segundo usuário acessa tranqüilamente o registro.

O q mais posso fazer para q dois ou mais usuários não editem o mesmo registro?

Grato,

Ilano.