Mostrar mensagem de erro de CPF no OnExit do DBEdit...
Saudações,
gostaria de saber como faço faço para que no OnExit do Dbedit mostre uma mensagem de erro caso a pessoa digite um cpf com menos de 11 dígitos (lembrando que eu pus máscara na table e no DBedit com pontos e hífen). Eu tinha feito dessa forma:
No evento Onexit do DBCpf(dbedit):
if dbcpf.text <> dbcpf.field.editmask then
showmessage(´CPF Inválido!´);
exit;
Dbcpf.setfocus;
end;
Dessa forma funciona mas mesmo quando a pessoa digita o cpf correto ele mostra a mensagem de erro. Eu coloquei a mascara no field da table (propriedade Editmask) e no evento onshow do form:
dbcpf.field.editmask := ´999.999.999-99´;
Alguém pode ajudar? Muito obrigado.
gostaria de saber como faço faço para que no OnExit do Dbedit mostre uma mensagem de erro caso a pessoa digite um cpf com menos de 11 dígitos (lembrando que eu pus máscara na table e no DBedit com pontos e hífen). Eu tinha feito dessa forma:
No evento Onexit do DBCpf(dbedit):
if dbcpf.text <> dbcpf.field.editmask then
showmessage(´CPF Inválido!´);
exit;
Dbcpf.setfocus;
end;
Dessa forma funciona mas mesmo quando a pessoa digita o cpf correto ele mostra a mensagem de erro. Eu coloquei a mascara no field da table (propriedade Editmask) e no evento onshow do form:
dbcpf.field.editmask := ´999.999.999-99´;
Alguém pode ajudar? Muito obrigado.
Elias Jr
Curtidas 0
Respostas
Lucas Silva
17/02/2004
Acredito que você não esteja salvando o CPF com estes pontinhos e hífens...
Sua Mascara deve estar assim 999.999.999-99;0;_
Coloque este código
Sua Mascara deve estar assim 999.999.999-99;0;_
Coloque este código
if Length(Trim(dbcpf.text )) <> 11 then
ShowMessage(´CPF Inválido´)GOSTEI 0
Elias Jr
17/02/2004
[quote:83bcc10117=´Lucas Alves Silva´]Acredito que você não esteja salvando o CPF com estes pontinhos e hífens...
Sua Mascara deve estar assim 999.999.999-99;0;_
Coloque este código
[/quote:83bcc10117]
Saudações Lucas,
testei essa sua maneira e funcionou só que, como eu tinha feito antes, ele acusa a mensagem mesmo quando colocamos o cpf correto (ou seja, todos os 11 dígitos). Porque isso está ocorrendo? Lembrando que eu pus máscara dessa forma na table e no dbedit. Muito obrigado
Sua Mascara deve estar assim 999.999.999-99;0;_
Coloque este código
if Length(Trim(dbcpf.text )) <> 11 then
ShowMessage(´CPF Inválido´)Saudações Lucas,
testei essa sua maneira e funcionou só que, como eu tinha feito antes, ele acusa a mensagem mesmo quando colocamos o cpf correto (ou seja, todos os 11 dígitos). Porque isso está ocorrendo? Lembrando que eu pus máscara dessa forma na table e no dbedit. Muito obrigado
GOSTEI 0
Elias Jr
17/02/2004
Saudações Amigo,
ahco que consegui resolver o problema....mesmo assim obrigado. Foi com sua ajuda que cheguei à solução. Valeu!
ahco que consegui resolver o problema....mesmo assim obrigado. Foi com sua ajuda que cheguei à solução. Valeu!
GOSTEI 0