Erro cx texto

[Rodrigo Miss 1]

Ola pessoal .... fiz o seguinteprocedure TfrmVenda.edtIDClienteChange(Sender: TObject);begin frmPrincipal.qryClientes.Close; frmPrincipal.qryClientes.SQL.Clear; frmPrincipal.qryClientes.SQL.Add('Select * from clientes WHERE ID = ' + edtIDCliente.Text); frmPrincipal.qryClientes.Open; edtCliente.Text:= frmPrincipal.qryClientesNOME.Text;end;ele axa os registros normal .... mais qdo eu do backspace pra apagar e procurar por outro id ... ele da erroalguem, sabe dizer oke fazer ???

[marcio.theis 3]

você colocou o comando no Change do campo, sendo que cada vez que você digita algo ele executa, e quando você apaga tudo o Edit fica sem nada, dando o erro, uma solução simples é colocar uma validação na primeira linha, tipo:

 

procedure TfrmVenda.edtIDClienteChange(Sender: TObject);beginif edtIDCliente.Text <> '' then	begin	frmPrincipal.qryClientes.Close;	frmPrincipal.qryClientes.SQL.Clear;	frmPrincipal.qryClientes.SQL.Add('Select * from clientes WHERE ID = ' + edtIDCliente.Text);	frmPrincipal.qryClientes.Open;	edtCliente.Text:= frmPrincipal.qryClientesNOME.Text;	end;end;

[Rodrigo Miss 1]

humm ,,, eu ja tinha feito issu,,, mais naum tinha dado certo,,, axo q deve ser pq naum foi colocaod issu na primeiro linha...beleza kra... mto obrigado