como tratar Erro no campo data
Fiz um pequeno cadatro de clientes, e gotaria de tratar o erro que dispara quando colocamos a data de maneira errada. em que evento faço o tratamento e qual o código.
agradeço.
agradeço.
Benilton
Curtidas 0
Respostas
Paullsoftware
03/05/2008
Qual o erro que retorna?
Qual banco usa?
Que componentes de acesso usa?
em que momento acontece o erro?
passe essas informações que facilita a ajuda! :wink:
Qual banco usa?
Que componentes de acesso usa?
em que momento acontece o erro?
passe essas informações que facilita a ajuda! :wink:
GOSTEI 0
Mazzi
03/05/2008
Olah, recomendo que vc use componentes prontos para tratar campos do tipo data, ex: TRxLib (components) ou outro(s) semelhantes, visto que vc pode por exemplo, tratar assim:
procedure .................
begin
[color=red:6a6ceab99a] try[/color:6a6ceab99a]
<seu codigo aqui>
[color=red:6a6ceab99a] except[/color:6a6ceab99a]
[b:6a6ceab99a] ShowMessage(´Data Invalida´);
exit;[/b:6a6ceab99a]
[color=red:6a6ceab99a] end;[/color:6a6ceab99a]
end;
Se num for algo do tipo, creio que precisamos de mais informacoes pra lhe ajudar.
Abracos++
procedure .................
begin
[color=red:6a6ceab99a] try[/color:6a6ceab99a]
<seu codigo aqui>
[color=red:6a6ceab99a] except[/color:6a6ceab99a]
[b:6a6ceab99a] ShowMessage(´Data Invalida´);
exit;[/b:6a6ceab99a]
[color=red:6a6ceab99a] end;[/color:6a6ceab99a]
end;
Se num for algo do tipo, creio que precisamos de mais informacoes pra lhe ajudar.
Abracos++
GOSTEI 0
Catunda
03/05/2008
Se vc criou a variável no seu DataSet, coloque o código abaixo no evento OnSetText da variável:
try
if Text= ´ / / ´ then sender.Clear
else sender.AsString:=Text;
except
on e:econverterror do
begin
showmessage(´A Dada Digitada : ´+Text+´ Não Corresponde a Uma Data Válida´);
abort;
end;
end;
try
if Text= ´ / / ´ then sender.Clear
else sender.AsString:=Text;
except
on e:econverterror do
begin
showmessage(´A Dada Digitada : ´+Text+´ Não Corresponde a Uma Data Válida´);
abort;
end;
end;
GOSTEI 0