MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 402
    Registrado : 05/03/2017

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  fazerbem 28/5/2018, 15:57

    Ola, queria que me ajudassem no codigo abaixo, o mesmo funciona direitinho mas lanca a data errada . A data que quero lancar na tblDataDet esta no form: FrmSistema, na caixa de texto: txtvalidade.

    Código:
       CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES (" & txtidVenda.Value & " , " & txtCodigoBarra.Value & " , '" & txtPrecoUnitario.Value & "' , " & txtQuantidade.Valu & ", " & txtValidade.Value & ")"

    todos sao lancados no lugar certo, so a data que vai errada. Esse comando acima lanca tudo dentro de uma Caixa de listagem e depois ataves do comando abaixo registra na Tabela.

        listaItensVenda.Requery

    Na TblVendaDet Modo Design esta assim, Formato: Data Abreviada, e na txtvalidade do form, Formato: Data Geral

    Grato


    Última edição por fazerbem em 29/5/2018, 20:04, editado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  ahteixeira 28/5/2018, 17:37

    Olá Andre,
    Apesar de ser membro desde o ano passado é o primeiro post.
    Seja Bem-Vindo ao MaximoAccess.

    Veja tópico abaixo e teste dessa forma:
    https://www.maximoaccess.com/t23702-resolvidoformato-de-data

    Abraço

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    Registrado : 04/04/2010

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  Avelino Sampaio 28/5/2018, 19:18

    Olá!

    uma outra dica é utilizar os apóstrofes. Veja neste meu artigo (copie e cole o endereço abaixo no seu navegador):

    usandoaccess.com.br/dicas/tipos-de-dados-consulta-insert-vba.asp?id=1&idlista=169

    Sucesso!
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 402
    Registrado : 05/03/2017

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  fazerbem 29/5/2018, 15:59

    Ola grato pelas respostas, Tentei das 2 formas abaixo e sem sucesso.

    Apos executar o comando continua sendo lancado para dentro da caixa de listagem a data 30/12/1899.
    A data que esta na caixa de texto e 20/01/2020, essa que teria que ser lançada !

    Meu Original - CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES (" & txtidVenda.Value & " , " & txtCodigoBarra.Value & " , '" & txtPrecoUnitario.Value & "' , " & "'txtQuantidade'" & ", " & txtValidade.Value & ")"

    1º - Assim data errada lancada CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES (" & txtidVenda.Value & " , " & txtCodigoBarra.Value & " , '" & txtPrecoUnitario.Value & "' , " & "'txtQuantidade'" & ", #" & Format(txtValidade, "mm/dd/yyyy") & "#)"

    2º - Assim tb data errada lancada CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES (" & txtidVenda.Value & " , " & txtCodigoBarra.Value & " , '" & txtPrecoUnitario.Value & "' , " & "'txtQuantidade'" & ", " & txtValidade.Value & ")"


    Todos os outros sao lancados corretamente na caixa de listagem, menos a data que vai com 30/12/1899.

    Grato

    Andre
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  ahteixeira 29/5/2018, 16:39

    Olá,

    Coloque a txtValidade do tipo data abreviada no form e teste.

    Abraço
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 402
    Registrado : 05/03/2017

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  fazerbem 29/5/2018, 16:50

    ja fiz isso e nao deu certo.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  ahteixeira 29/5/2018, 17:39

    Olá, estranho, tentou a dica do coleaga Avelino?

    Estou no celular, mas tente assim:

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES (" & txtidVenda.Value & " , " & txtCodigoBarra.Value & " , '" & txtPrecoUnitario.Value & "' , " & "'txtQuantidade'" & ", #'" & Format(cdate(txtValidade), "mm/dd/yyyy") & "'#)"

    Abraço

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    Registrado : 04/04/2010

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  Avelino Sampaio 29/5/2018, 17:48

    Se a dica do amigo Alvaro não resultar, experimente.

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES ('" & me!txtidVenda & "' , '" & me!txtCodigoBarra & "' , '" & me!txtPrecoUnitario & "' , '" & me!txtQuantidade & "', '" & me!txtValidade & "')"


    Sucesso!
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 402
    Registrado : 05/03/2017

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  fazerbem 29/5/2018, 18:18

    Opa, muito obrigado mesmo !!

    Assim que deu certo :

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade) VALUES ('" & me!txtidVenda & "' , '" & me!txtCodigoBarra & "' , '" & me!txtPrecoUnitario & "' , '" & me!txtQuantidade & "', '" & me!txtValidade & "')"

    Vou postar ainda mais outras duvidas, fora a que postei a pouco depois desta aqui, se puderem me auxiliar serei muito grato.

    Andre
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 402
    Registrado : 05/03/2017

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  fazerbem 29/5/2018, 18:21

    como faco agora pra por como resolvida essa questao aqui, sou novo aqui.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4556
    Registrado : 06/11/2009

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  Assis 29/5/2018, 19:54



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7379
    Registrado : 15/03/2013

    [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899 Empty Re: [Resolvido]Ao transferir a data para Tabela a data vai com 30/12/1899

    Mensagem  ahteixeira 29/5/2018, 20:08

    Olá a todos,

    Andre Luiz, obrigado pelo retorno o fórum agradece.

    cheers

      Data/hora atual: 20/1/2022, 10:26