ERRO AO GRAVAR DATA EM BRANCO

RICARDOCENTENO 06/01/2010 21:57:06
#331250
Então seguinte NILTON_VIANNA, apenas mude o tipo de dado para texto no access e sempre quando fores gravar uma data formate sua textbox, é mais simples e prático ae basta usar as funções de validação de data e pronto tudo certo ou aconselho também a substituir o teu textbox por um masked box, e colocar os atributos como ##/##/#### na maskara, assim só vai aceitar números.
NILTON.VIANNA 06/01/2010 22:30:16
#331251



CnSql.Execute [Ô]INSERT INTO CadServico (ServicoID, Emissao, Nome, Endereco, Cidade, Estado, Cep, Bairro, Contato, Fone, Celular, Motivo, Aprova, ValServico, Saida, ValPeca, Total, Obs1, Obs2, Obs3) VALUES ([ô][Ô] & txtServicoID.Text & [Ô][ô], [ô][Ô] & txtEmissao.Text & [Ô][ô],[ô][Ô] & txtNome.Text _
& [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & txtCidade.Text & [Ô][ô], [ô][Ô] & txtEstado.Text & [Ô][ô], [ô][Ô] & txtCep.Text & [Ô][ô], [ô][Ô] & txtBairro.Text & [Ô][ô],[ô][Ô] & txtContato.Text & [Ô][ô], [ô][Ô] & txtFone.Text & [Ô][ô], [ô][Ô] & txtCelular.Text & [Ô][ô],[ô][Ô] & txtMotivo.Text & [Ô][ô],[ô][Ô] & txtAprova.Text & [Ô][ô],[ô][Ô] & txtValServico.Text _
& [Ô][ô],[ô][Ô] & IIf(Trim(txtSaida.Text) = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtSaida.Text & [Ô][ô][Ô]) & [Ô][ô],[ô][Ô] & txtValPeca.Text & [Ô][ô],[ô][Ô] & txtTotal.Text & [Ô][ô],[ô][Ô] & txtObs1.Text & [Ô][ô],[ô][Ô] & txtObs2.Text & [Ô][ô],[ô][Ô] & txtObs3.Text & [Ô][ô])[Ô]

onde sera que estou errando ???

NILTON.VIANNA 06/01/2010 22:33:45
#331252
Ricardo Centeno , JA TO COM A MASCAR TUDO EM ORDEM, COMO O TECLA PASSOU O UPDATE DEU CERTINHO, SO ESTOU APANHANDO NO INTO..
NILTON.VIANNA 06/01/2010 22:40:05
#331255

PODERIA COLOCAR NO MODO TEXT, OK COM 10 CARACTERS
TUDO BEM VAI FUNCIONAR NORMAL, SO QUE VOU TER UM CNTROLE
DE GARANTIA E A PESQUISA VOU TER QUE USAR A SAIDA NO MODO
NO ACCESS DATA...
MARCELO.TREZE 06/01/2010 22:47:58
#331256
altere seu insert into para esta forma

CnSql.Execute [Ô]INSERT INTO CadServico (ServicoID, Emissao, Nome, Endereco, Cidade, Estado, Cep, Bairro, Contato, Fone, Celular, Motivo, Aprova, ValServico, Saida, ValPeca, Total, Obs1, Obs2, Obs3) VALUES ([ô][Ô] & txtServicoID.Text & [Ô][ô], [ô][Ô] & txtEmissao.Text & [Ô][ô],[ô][Ô] & txtNome.Text _
& [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & txtCidade.Text & [Ô][ô], [ô][Ô] & txtEstado.Text & [Ô][ô], [ô][Ô] & txtCep.Text & [Ô][ô], [ô][Ô] & txtBairro.Text & [Ô][ô],[ô][Ô] & txtContato.Text & [Ô][ô], [ô][Ô] & txtFone.Text & [Ô][ô], [ô][Ô] & txtCelular.Text & [Ô][ô],[ô][Ô] & txtMotivo.Text & [Ô][ô],[ô][Ô] & txtAprova.Text & [Ô][ô],[ô][Ô] & txtValServico.Text _
& [Ô][ô],[Ô] & IIf(Trim(txtSaida.Text) = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtSaida.Text & [Ô][ô][Ô]) & [Ô],[ô][Ô] & txtValPeca.Text & [Ô][ô],[ô][Ô] & txtTotal.Text & [Ô][ô],[ô][Ô] & txtObs1.Text & [Ô][ô],[ô][Ô] & txtObs2.Text & [Ô][ô],[ô][Ô] & txtObs3.Text & [Ô][ô])[Ô]


se funcionar, o problema é até simples

na virgula do IIf estava assim

,[ô][Ô] & IIf(Trim(txtSaida.Text) = [Ô][Ô], [Ô]NULL[Ô], [Ô][ô][Ô] & txtSaida.Text & [Ô][ô][Ô]) & [Ô][ô],


repare que vc possuia uma aspa simples apos a primeira virgula e uma antes da ultima virgula

esta aspa nao pode estar ali, porque? Na instrução Null não pode estar entre aspas ( [ô]Null[ô] )
ex:
 Insert Into tabela(campo1,campo2) values (Null,[ô]marcelo[ô])


então analizando a funcao IIf acima se fosse Null ficaria [ô]Nuill[ô] se possuir um valor entao a aspa iria se repetir

[ô][ô]25/07/1972[ô][ô]



entedeu o que estava acontecendo?
NILTON.VIANNA 06/01/2010 22:58:39
#331259

RESOLVIDO, UPDATE TECLA
INTO, MARCELO TREZE

Grato a todos, valeu mesmo...
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas