ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Duvida com campo Lookup (Resolvido)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
aleshy
Profissional
Profissional


Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627

MensagemEnviada: Qui Fev 12, 2009 2:16 am    Assunto: Duvida com campo Lookup (Resolvido) Responder com Citação

Ola pessoal.

Estou desenvolvendo uma sistema que tem o seguinte.

Um campo CODIGO e um DESCRICAO. Descricao é um campo LookUp.

Quando digito o codigo ele tras a descricao.
Queria saber como fazer para que quando fosse digitado um codigo que nao existe ele apresentasse a messagem de erro.

O que acontece atualmente é que se digitar um codigo que nao existe ele nao dá nenhum erro.
Ex: Se eu digitar 1 ele tras SALVADOR. Se eu digitar 2 e este codigo nao existir ele nao dá erro e a descricao continua SALVADOR.
Como posso controlar isso?

Obrigado!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba


Editado pela última vez por aleshy em Sex Fev 13, 2009 4:24 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
abagattini
Mestre
Mestre


Registrado: Terça-Feira, 29 de Novembro de 2005
Mensagens: 758
Localização: Porto Alegre/RS

MensagemEnviada: Qui Fev 12, 2009 2:35 pm    Assunto: Responder com Citação

Código:
lookup.keyvalue:=codigo
if(lookup.text<>'')tehn
  codigo existe
else
  codigo não existe
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
aleshy
Profissional
Profissional


Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627

MensagemEnviada: Qui Fev 12, 2009 3:15 pm    Assunto: Responder com Citação

Ok amigo abagattini!
Mas, eu coloco esse codigo em algum evento especifico ou escolho um ao meu modo?
Se vc ja fez isso em algum evento especifico qual foi ele?

Valeu!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
abagattini
Mestre
Mestre


Registrado: Terça-Feira, 29 de Novembro de 2005
Mensagens: 758
Localização: Porto Alegre/RS

MensagemEnviada: Qui Fev 12, 2009 3:36 pm    Assunto: Responder com Citação

pode ser no próprio evento OnExit do componente
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
aleshy
Profissional
Profissional


Registrado: Terça-Feira, 13 de Março de 2007
Mensagens: 627

MensagemEnviada: Sex Fev 13, 2009 4:18 pm    Assunto: Responder com Citação

Valeu Brother.

Vi seu codigo e adaptei a minha necessidade. Ficou assim:
Código:

procedure TDMProfissionais.CDSCodEstadoChange(Sender: TField);
begin
  inherited;
if CDSLookEstado.Text = '' then
 ShowMessage('teste');
end;


Valeu ai amigao!
_________________
Alex Vieira
Desenvolvedor
Salvador - Ba
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB