Fórum Campo DBedit Formato Date Socorrooooooo #174850

13/08/2003

0

Galera eu tenho esse campo DBEdit1.text onde é digitado a data. Esse campo é de uma tabela em paradox de campo tipo D ´Date´.
Eu queria informar ao usuário que na hora de ele comfirmar o cadastro caso ele nao digitou nada na data a mensagem iria informar para ele voltar e digitar a data. Mas do jeito que fiz ele aceita normalsem data.
Essa e a form que esta a restricao. A algo de Errado?

if dbedit1.Text = ´´ then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;


Marcelototini

Marcelototini

Responder

Posts

13/08/2003

Diogoalles

Você poderia fazer assim

if not(strtodate(DBEdit.Text) > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;

ou melhor ainda é comparar com o campo da tabela ligado ao DBEdit:
if not(Table1.FieldByName(´Data´).AsDate > 0)then
begin
BEEP;
SHOWMESSAGE(´Favor preencher a data´);
dbedit1.setfocus;
end;


abraço
Diogo


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar