ERRO AO GRAVAR DATA EM BRANCO
Bom dia amigos,
estou com uma duvida dever ser simples
mais não estou vendo como..
tenho um campo texto txt.Saida.Text
no accessório esta tipo texto ok.
Grava normal só que vou ter que usar em modo data
mais quando vou gravar da erro, se voltar no modo texto grava normal
já tentei usar MASKBOX mais não deu certo na gravação, se deixar a data em branco da erro
pois ainda não liberei o material, resumindo tenho que deixar em branco pra depois colocar a data da saÃda..
estou com uma duvida dever ser simples
mais não estou vendo como..
tenho um campo texto txt.Saida.Text
no accessório esta tipo texto ok.
Grava normal só que vou ter que usar em modo data
mais quando vou gravar da erro, se voltar no modo texto grava normal
já tentei usar MASKBOX mais não deu certo na gravação, se deixar a data em branco da erro
pois ainda não liberei o material, resumindo tenho que deixar em branco pra depois colocar a data da saÃda..
conexao.Execute [Ô]UPDATE tabela SET data=null WHERE <campo> = <criterio>[Ô]
estou salvando assim
Else
CnSql.Execute [Ô]UPDATE CadCliente SET NOME = [ô][Ô] & txtNome.Text & [Ô][ô], SAIDA = [ô][Ô] & txtSaida.Text & [Ô][ô], CIDADE = [ô][Ô] & Text _ [ô][Ô] & txtCidade.Text & [Ô][ô] & [Ô][ô] WHERE ClienteID = [Ô] & txtClienteID.Text
Else
CnSql.Execute [Ô]UPDATE CadCliente SET NOME = [ô][Ô] & txtNome.Text & [Ô][ô], SAIDA = [ô][Ô] & txtSaida.Text & [Ô][ô], CIDADE = [ô][Ô] & Text _ [ô][Ô] & txtCidade.Text & [Ô][ô] & [Ô][ô] WHERE ClienteID = [Ô] & txtClienteID.Text
Tente assim:
CnSql.Execute [Ô]UPDATE CadCliente [Ô] & _
[Ô]SET NOME = [ô][Ô] & txtNome.Text & [Ô][ô], [Ô] & _
[Ô]SAIDA = [Ô] & IIf(Trim(txtSaida.Text) = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtSaida.Text & [Ô][ô][Ô]) & [Ô], [Ô] & _
[Ô]CIDADE = [ô][Ô] & txtCidade.Text & [Ô][ô] [Ô] & _
[Ô]WHERE ClienteID = [Ô] & txtClienteID.Text
use a função VALIDATE do campo.
Olha amigo tem duas soluções para isso, uma seria você ver que tipo de atributo está o seu campo na tabela se estiver em modo data/hora mofifique-o para texto e a outra seria usar o código abaixo:
Talves ajude
format (txt.saida.txt,[Ô]DD/MM/AAA[Ô] Talves ajude
Eu faço assim no Insert Into e da certo:
strSQL = strSQL & [Ô][ô][Ô] & IIf(Not IsDate(TxtPrazo.text), Null, Format(TxtPrazo.text, [Ô]dd/mm/yyyy[Ô])) & [Ô][ô],[Ô]
No Update:
Sql = Sql & [Ô][Prazo]=[Ô] & IIf(Not IsDate(TxtPrazo.text)), [Ô]null[Ô], [Ô][ô][Ô] + Format(TxtPrazo.text), [Ô]dd/mm/yyyy[Ô]) + [Ô][ô][Ô]) & [Ô],[Ô]
strSQL = strSQL & [Ô][ô][Ô] & IIf(Not IsDate(TxtPrazo.text), Null, Format(TxtPrazo.text, [Ô]dd/mm/yyyy[Ô])) & [Ô][ô],[Ô]
No Update:
Sql = Sql & [Ô][Prazo]=[Ô] & IIf(Not IsDate(TxtPrazo.text)), [Ô]null[Ô], [Ô][ô][Ô] + Format(TxtPrazo.text), [Ô]dd/mm/yyyy[Ô]) + [Ô][ô][Ô]) & [Ô],[Ô]
A formatação de datas no SQL é a seguinte: YYYY-MM-DD. Tente dessa forma.
Tabela Access esta como Saida tipo data/hora = ##/##/####
no form esta tipo txtSaida.tex
no form esta tipo txtSaida.tex
TECLA funcionou no Update estou tentando no,
CnSql.Execute [Ô]INSERT INTO CadServico (ServicoID, Emissao VALUES ([ô][Ô] & txtServicoID.Text & [Ô][ô], [ô][Ô] & txtEmissao.Text & [Ô][ô])[Ô]
CnSql.Execute [Ô]INSERT INTO CadServico (ServicoID, Emissao VALUES ([ô][Ô] & txtServicoID.Text & [Ô][ô], [ô][Ô] & txtEmissao.Text & [Ô][ô])[Ô]
Segue o INSERT ajustado:
CnSql.Execute [Ô]INSERT INTO CadServico (ServicoID, Emissao [Ô] & _
[Ô]VALUES ([ô][Ô] & txtServicoID & [Ô][ô], [Ô] & IIf(Trim(txtEmissao) = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtEmissao & [Ô][ô][Ô]) & [Ô])[Ô]
Tópico encerrado , respostas não são mais permitidas