Fórum Como validar um campo vazio #215417
19/02/2004
0
ESTOU FAZENDO UM AGENDA, QUE CONTA COM 4 CAMPOS QUE NÃO PODEM SER DEIXADOS EM BRANCO:
- NOME, FONE PESSOAL, FONE CELULAR E FONE COMERCIAL.
QDO CLICO NO BOTÃO INCLUIR, ELE ABRE OS CAMPOS PARA INCLUSÃO, PORÉM AO CONFIRMAR ELE MOSTRA A MENSAGEM QUE O USUÁRIO DEVE PREENCHER O CAMPO NOME, RETORNANDO O FOCO PARA O CAMPO NOME, SÓ QUE SE EU DEIXO OS OUTROS 3 CAMPOS EM BRANCO, E CLICO NO BOTÃO CONFIRMA, ELE INCLUI NA 1ª VEZ, DEPOIS NA SEGUNDA ELE GERA UMA EXCEÇÃO QUE TRAVA O SISTEMA.
O CÓDIGO DO BOTÃO CONFIRMA É:
CÓDIGO PARA OS OUTROS 3 CAMPOS.
TBAGENDA.POST;
SE ALGUÉM SOUBER A SOLUÇÃO ME AVISEM.
[b:fbd55962fc][color=red:fbd55962fc]Título editado pelo Moderador (AZ) - Removido: ´COMO FAÇO PARA VALIDAR CAMPO EM BRANCO´
Bem vindo ao Fórum - Leia as regras de conduta[/color:fbd55962fc][/b:fbd55962fc]
- NOME, FONE PESSOAL, FONE CELULAR E FONE COMERCIAL.
QDO CLICO NO BOTÃO INCLUIR, ELE ABRE OS CAMPOS PARA INCLUSÃO, PORÉM AO CONFIRMAR ELE MOSTRA A MENSAGEM QUE O USUÁRIO DEVE PREENCHER O CAMPO NOME, RETORNANDO O FOCO PARA O CAMPO NOME, SÓ QUE SE EU DEIXO OS OUTROS 3 CAMPOS EM BRANCO, E CLICO NO BOTÃO CONFIRMA, ELE INCLUI NA 1ª VEZ, DEPOIS NA SEGUNDA ELE GERA UMA EXCEÇÃO QUE TRAVA O SISTEMA.
O CÓDIGO DO BOTÃO CONFIRMA É:
IF (DBEDTNOME.TEXT=´´) THEN
BEGIN
SHOWMESSAGE(´FAVOR PREENCHER O CAMPO NOME !´);
DBEDTNOME.SETFOCUS;
EXIT;
END;
END;CÓDIGO PARA OS OUTROS 3 CAMPOS.
TBAGENDA.POST;
SE ALGUÉM SOUBER A SOLUÇÃO ME AVISEM.
[b:fbd55962fc][color=red:fbd55962fc]Título editado pelo Moderador (AZ) - Removido: ´COMO FAÇO PARA VALIDAR CAMPO EM BRANCO´
Bem vindo ao Fórum - Leia as regras de conduta[/color:fbd55962fc][/b:fbd55962fc]
Ethan Hunt
Curtir tópico
+ 0
Responder
Posts
19/02/2004
Skaarj
IF (DBEDTNOME.TEXT<>´´) THEN
BEGIN
IF (DBEDT2.TEXT<>´´) THEN
BEGIN
IF (DBEDT3.TEXT<>´´) THEN
BEGIN
IF (DBEDT4.TEXT<>´´) THEN
BEGIN
TBAGENDA.POST
END
ELSE
BEGIN
SHOWMESSAGE(´FAVOR PREENCHER O CAMPO 4 !´);
DBEDT4.SETFOCUS;
END;
END
ELSE
BEGIN
SHOWMESSAGE(´FAVOR PREENCHER O CAMPO 3 !´);
DBEDT3.SETFOCUS;
END;
END
ELSE
BEGIN
SHOWMESSAGE(´FAVOR PREENCHER O CAMPO NOME !´);
DBEDT4.SETFOCUS;
END;
END; [só verifique se nao esqueci nenhum END]
Agora é o seguinte.. ele vai ver se estiver td completo, passa e grava.
No momento que ele encontrar 1 null ele dá a mensagem e seta o foco no campo..
Responder
Gostei + 0
19/02/2004
Karepa
Tira o comando exit após o setfocus.
este comando aborta procedure, por isto que grava os campos em branco.
este comando aborta procedure, por isto que grava os campos em branco.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)