Erro em Campo de Data em Tabela Paradox

Question

Uso paradox e nesses campos de Data, se usu�rio preencher esses campos e futuramente quiser apagar a data, d� erro e n�o deixa mais o campo ficar sem preencher a data. Algu�m j� conseguiu achar como n�o acontecer isso?

Marco Salles · Answer

[quote:acef0c80bf]Algu�m j� conseguiu achar como n�o acontecer isso? [/quote:acef0c80bf]janete , eu lembro vagamente de um problema desse tipo , e acho que a solu��o esta nos evento OnsetText do campo[quote:acef0c80bf]if text = �� Then sender.clear else sender.asDatetime:=StrtoDate(Text);[/quote:acef0c80bf]acho que � isso... S�o tantos os problemas  :cry:  :cry:...

Janete · Answer

Deu certo sua sugest�o, mas tive q acrescentar uma fun��o para ele colocar em formato de data e chamei a fun��o no comando q voce me passou.

no evendo OnSetText

if text = �� Then
sender.clear
else
sender.asDatetime:=StrtoDate(ArrumaData(Text));

function ArrumaData (ValorData: String): String;
var
I: Integer;
S: String;
begin
S:=��;
for I:=1 to Length(ValorData) do
begin
if (I = 3)or(I = 5)then
begin
if I=3 then
S:=S+�/�+ValorData[I];
if I=5 then
S:=S+�/�+ValorData[I];
end
else
S:=S+ValorData[I];
End;
if ValorData<>�� then
Result:=S;
end;

Marco Salles · Answer

[quote:ffa11bdd16]Deu certo sua sugest�o, mas tive q acrescentar uma fun��o para ele colocar em formato de data e chamei a fun��o no comando q voce me passou. [/quote:ffa11bdd16]acho que num precisa fazer tudo isto , voce pode usar simplesmente o asstringno evendo OnSetText [quote:ffa11bdd16]if text = �� Then sender.clear else sender.asstring:=text;[/quote:ffa11bdd16]acho que assim d�...

Janete · Answer

[quote:ac044ced31=�Marco Salles�][quote:ac044ced31]Deu certo sua sugest�o, mas tive q acrescentar uma fun��o para ele colocar em formato de data e chamei a fun��o no comando q voce me passou. [/quote:ac044ced31]acho que num precisa fazer tudo isto , voce pode usar simplesmente o asstringno evendo OnSetText [quote:ac044ced31]if text = �� Then sender.clear else sender.asstring:=text;[/quote:ac044ced31]acho que assim d�[/quote:ac044ced31]Fiz assim por q meus clientes n�o est�o acostumados a digitar as barras entre a data __/__/__ pois eu usava mascara no campo, e por causa dessa mascara qdo quer q tirar a data j� preenchida l�, dava erro, n�o aceitava, ent�o eu colocando essa fun��o junto, o usu�rio digita somente o n�mero e depois eu coloco a mascar� com a fun��o, pois � um campo data e ele n�o aceita se n�o tiver as barrinhas...  mas obrigado    :)...

F�rum Erro em Campo de Data em Tabela Paradox #329877