REVELAR

Fórum Como ultilizar o locatePara verificar dadosAntes de gravar? #335864

09/01/2007

0

Coloquei dois Tables

Uma para gravar os dados e a outra para realizar a pesquisa para ver se aqueles dados já existem mas não estou conseguindo oque está faltando....?

Table1 (Gravar dados)

Table2 (Pesquisar dados)

procedure T_BAIRRO.Table1BeforePost(DataSet: TDataSet);
begin
if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[])= True then
Begin
ShowMessage(´Bairro já cadastrado!´);
Table1.Cancel;
End;
Table2.Active:= false;
Table2.Active:= True;
end;


Max2006

Max2006

Responder

Posts

09/01/2007

Max2006

Faltava o Abort...

if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[]) = True then
Begin
ShowMessage(´Bairro já cadastrado!´);
DBComboBox1.SetFocus;
DBComboBox1.SelectAll;
Abort;

End;
Table2.Active:= false;
Table2.Active:= True;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar