Erro tela consulta

[weltonmarley 2]

Ola estou um tempo sem postar no forum, mas hoje me deparei com uma dificuldade eu montei um formulario de consulta de contatos com o seguinte codigo :

 

implementation

 

uses Unit2, Unit1, Unit3;

 

{$R *.dfm}

 

procedure TForm6.Button1Click(Sender: TObject);

begin

form1.show;

form6.Hide;

end;

 

procedure TForm6.Button2Click(Sender: TObject);

begin

DBEdit2.SetFocus;

DataModule2.tabcontatos.Edit;

end;

 

procedure TForm6.Button3Click(Sender: TObject);

begin

form3.show;

form6.Hide;

end;

 

procedure TForm6.Edit1Change(Sender: TObject);

begin

DataModule2.tabcontatos.Locate('nome',Edit1.Text,[LopartialKey,LocaseInsensitive]);

end;

 

end.

 

 

e funcionou bem assim que a pessoa digita no campo de busca ele vai exibindo, ai tentei fazer outra tela para consultar fornecedores, mais ai quando escreve no edit de pesquisa não acontece nada, ta assim :

 

implementation

 

uses Unit2, Unit4, Unit1;

 

{$R *.dfm}

 

procedure TForm7.Button1Click(Sender: TObject);

begin

form1.show;

form7.Hide;

end;

procedure TForm7.Button4Click(Sender: TObject);

begin

DataModule2.tabcontatos.Edit;

end;

 

procedure TForm7.Edit1Change(Sender: TObject);

begin

DataModule2.tabfornecedor.Locate('RAZAO SOCIAL',Edit1.Text,[LopartialKey,LocaseInsensitive]);

end;

 

procedure TForm7.Button2Click(Sender: TObject);

begin

DBEdit2.SetFocus;

DataModule2.tabfornecedor.Edit;

end;

 

procedure TForm7.Button3Click(Sender: TObject);

begin

form4.Show;

form7.Hide;

end;

 

end.

 

 

 

Gostaria de saber se fiz algo errado nesse segundo formulario,

Aguardo quem poder ajudar

[wllf 2]

Colega pode até parecer uma pergunta idiota mas o nome do campo é 'RAZAO SOCIAL' com espaço mesmo, geralmente esses campos compostos colocamos um '_' no meio das palavras?

[weltonmarley 2]

Ola, o campo se chama razão social separado mesmo, eu tava fazendo um teste hoje para o campo de busca funcionar tem que digitar algo clicar no campo de baixo apagar e digitar de novo em cima, será que tem alguma solução?

[wllf 2]

Colega debug à aplicação e veja em qual momento ela dispara o evento do Edit1Change, normalmente ele dispara quando se executa alguma mudança dentro do edit, algum tempo atrás tive um problema parecido, no meu caso eu tinha copiado vários edits no mesmo form, com isso 2 edits estavam apontando para o mesmo evento, era questão de criar outra procedure.