(Resolvido) Erro inesperado

[M@tEuS]

Estou fazendo programa com conexão ADO com o banco de dados Access.

Em um Form de "Venda de produtos", tenho uma Edit (txtCodProd) onde o que for digitado nela deve ser pesquisado no Form de "Produtos" e, se for encontrado na tabela, outras Edit's deverão receber os dados referentes ao campo encontrado.

Não sei se expliquei direito, mas estou fazendo assim:

If frmProdutos.tbProdutos.Locate('Codigo', txtCodProd.Text, []) then

begin

...

end;

Só que se eu coloco essa função no evento OnChange da Edit dá o seguinte erro logo quando executo o programa:

"Access violation at address 004e97b7 in module 'Programa.exe'. Read of address 00000360."

E se eu coloco no OnKeyPress dá parâmetros incorretos ou em conflito quando eu digito alguma coisa.

Sou meio amador e não sei onde pode estar o erro, alguém saberia me ajudar?

Obs.: Usei o mesmo código em outros Forms mas funcionam. Só esse que não.

Esqueci de colocar "= True" antes do "then" no código acima. :D

Mas o erro é o mesmo.

[Vivendo&Aprendendo]

Nas minhas telas de vendas eu utilizo SQL no lugar de locate... ficaria mais ou menos assim no OnChange do edit

AdoQuery.Close;
  AdoQuery.SQL.Clear;
  AdoQuery.SQL.Add('Select * From TABELA);
  AdoQuery.SQL.Add('Where Codigo Like :pCod ');
  AdoQuery.Parameters[0].Value := Edit1.Text;
  AdoQuery.Open;

Flws

Alexandre

[Jhonas]

If frmProdutos.tbProdutos.Locate('Codigo', txtCodProd.Text, []) then

begin

...

end;

Só que se eu coloco essa função no evento OnChange da Edit dá o seguinte erro logo quando executo o programa:

"Access violation at address 004e97b7 in module 'Programa.exe'. Read of address 00000360."

Esqueci de colocar "= True" antes do "then" no código acima.

A linha de codigo está correta, e não precisa colocar true no codigo .... se ele localizar o Codigo ( campo texto ) então será executado o que estiver dentro do begin ... end

coloque o codigo no evento OnExit do Edit, e coloque antes do locate o comando para ir para o inicio do arquivo ( frmProdutos.tbProdutos.First ) para fazer a busca.

abraço

[Micheus]

Só que se eu coloco essa função no evento OnChange da Edit dá o seguinte erro logo quando executo o programa:

"Access violation at address 004e97b7 in module 'Programa.exe'. Read of address 00000360."

M@tEuS, como mencionou o Jhonas, coloque no evento OnExit. O evento OnChange ocorre para cada caracter digitado e com relação ao erro, ele sugere que você possa não ter inicializado (criado) o form frmProdutos antes de utilizá-lo - dê uma verificada.

Abraços

[M@tEuS]

Funcionou no OnExit, muito obrigado pelas dicas. :)