Consulta via Query...

Altere seu codigo com as linhas em negrito:

Query1.SQL.Clear;
[b:6f8db40fb8]Query1.SQL.Add(´SELECT * FROM Entrada Ent WHERE Ent.Fornecedor_ID = :Fornecedor´); [/b:6f8db40fb8]
[b:6f8db40fb8]Query1.ParamByName(´Fornecedor´).AsInteger := Fornecedor;[/b:6f8db40fb8]Query1.ExecSQL;
QUERY1.First;
if not Query1.Eof then
begin
MessageDlg(´Documento ja incluso...´, mtInformation, [mbOk], 0);
edtdocorigem.SetFocus;
end;

Amigo Visisante, executei as alteracoes sugeridas por voce, mas acontece o erro:

parametro fornecedor nao encontrado...

poderia dar um retorno?

Amigo Visisante, executei as alteracoes sugeridas por voce, mas acontece o erro:

parametro fornecedor nao encontrado...

poderia dar um retorno?

[quote:8cb7b48b80=´paulo césar de oliveira´]Amigos, alguem poderia indicar onde esta o erro:

Query1.SQL.Clear;
Query1.SQL.Add(´SELECT * FROM Entrada Ent WHERE Ent.Fornecedor_ID = Fornecedor´);
Query1.ExecSQL;
QUERY1.First;
if not Query1.Eof then
begin
MessageDlg(´Documento ja incluso...´, mtInformation, [mbOk], 0);
edtdocorigem.SetFocus;
end;

Fornecedor esta definido a nivel de formulario como integer

Ao executar Query1.ExecSQL exibe o seguinte erro:

too few parameters. Expective 1.

preciso dessa ajuda urgentemente...

Obrigado[/quote:8cb7b48b80]

Se o seu campo Fornecedor_ID é do tipo inteiro, basta corrigir a composição da string de sua Query como abaixo:

Query1.SQL.Add(´SELECT * FROM Entrada Ent WHERE Ent.Fornecedor_ID = ´+IntToStr(Fornecedor));

Caso Fornecedor_ID seja string:

Query1.SQL.Add(´SELECT * FROM Entrada Ent WHERE Ent.Fornecedor_ID = ´´+IntToStr(Fornecedor)+´´´);

Tudo isso levando em consideração que Fornecedor é uma variável inteira