SALVAR CAMPO DATA VAZIO

 Tópico anterior Próximo tópico Novo tópico

SALVAR CAMPO DATA VAZIO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#315477 - 02/07/2009 14:09:21

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Bom pessoal parece que estou voltando ao passado, mas infelizmente não consigo fazer isto.

O meu Problema é o seguinte como posso salvar em um campo data quando não tiver data para ser salva.

veja o que já tentei

SQL = SQL & "datanascimento=#" & IIf(txtNascimento.Text = Empty, IsNull(txtNascimento.Text), Format(txtNascimento.Text, "yyyy/mm/dd")) & "#,"

isso

SQL = SQL & "datanascimento=#" & IIf(txtNascimento.Text = Empty, Null, Format(txtNascimento.Text, "yyyy/mm/dd")) & "#,"

e até isto

SQL = SQL & "datanascimento=#" & IIf(txtNascimento.Text = Empty, "0000/00/00", Format(txtNascimento.Text, "yyyy/mm/dd")) & "#,"

mas sempre retorna erro.



o Banco é access
o tipo do campo é Data/Hora

Agradeço desde já.


________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



Resposta escolhida #315478 - 02/07/2009 14:17:05

TECLA
SAO PAULO
Cadast. em:Janeiro/2001


Membro da equipe
MARCELO-TREZE,

Tente assim:
SQL = SQL & "datanascimento=" & IIf(Trim(txtNascimento.Text) = "", "NULL", "#" & Format(txtNascimento.Text, "yyyy/mm/dd") & "#")





#315479 - 02/07/2009 14:17:19

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Última edição em Editado em 02/07/2009 14:26:23 por ALVAROVB2009 por

Marcelo eu utilizo um POG para resolver isso
Coloco uma data antiga tipo 01/01/1900 e quando exibo a data pergunto se a data é 01/01/1900 e deixo o text limpo.


Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1

#315480 - 02/07/2009 14:21:42

ANDRE.ADMVB
JUNDIAI
Cadast. em:Abril/2006


Última edição em Editado em 02/07/2009 14:26:27 por ANDRE.ADMVB por

Acho que a solução apontada pelo TECLA funciona, mas caso não, pode fazer uma condição, já que o campo permite NULO:

If Len(Trim(txtNascimento.Text)) > 0 Then SQL = SQL & "datanascimento=#" & Trim(txtNascimento.Text & "#)"



André Cantarim,
Vida de Escravo - Se fosse fácil, chamava MIOJO!
INFINITI - Tecnologia da Informação

#315481 - 02/07/2009 14:32:32

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Valeu galera a forma que o tecla passou funcionou, então ficou assim

SQL = SQL & "" & IIf(txtNascimento.Text = Empty, "Null", "#" & Format(txtNascimento.Text, "yyyy/mm/dd") & "#") & ","


Obrigado a todos mais uma vez

________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45