Boa Tarde, venho tentar novamente obter ajuda dos Irmãos!!!!!
Estou começando em delphi agora e preciso de uma luz!!!! tenho a seguinte procedure abaixo que roda no momento em clicko na tecla consulta: procedure Tfrmagenda1.btnconsultarClick(Sender: TObject); var pesquisa:integer; begin FrmAgenda1Cons.ShowModal; tblAgenda1.SetKey; pesquisa := StrToInt(Trim(FrmAgenda1Cons.EdtauxCodigo.Text)); tblAgenda1.FieldByName('Ag_Codigo').asinteger := pesquisa; if not tblAgenda1.GotoKey then begin showmessage('Código não encontrado'); tblAgenda1.First; end; end; E esta procedure no form de consulta. procedure Tfrmagenda1cons.btnokClick(Sender: TObject); begin if edtauxcodigo.Text='' then begin showmessage('Digite código para pesquisa'); edtauxCodigo.SetFocus; end else close; end; Qdo clicko no botão consulta ele executa belezinha, mas quando clicko em OK no form da consulta, para me dar o retorno, mesmo eu digitando um codigo cadastrado, ele me retorno "Não encontrado". O que poderia ser!!! Já olhei e não sei se por inexperiencia deixei passar alguma coisa, agradeço desde já alguma ajuda!!!! TAsquim [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html