MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como adicionar 30 dias a uma data VBA

    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/10/2017

    [Resolvido]Como adicionar 30 dias a uma data VBA Empty [Resolvido]Como adicionar 30 dias a uma data VBA

    Mensagem  werlewow em 12/12/2017, 10:51

    Tenho uma tabela com um campo de data, que é preenchido por comando VBA de um formulário. Basicamente ela insere a data de hoje (do dia que o usuário abriu o formulário e clicou no botão "cadastrar"). Meu objetivo agora é que ele insira em um novo campo a data que foi inserida anteriormente + 30 dias, ou seja, como se fosse um comando (agora() + 30) porém em VBA. Segue o código VBA usado.

    Private Sub Comando31_Click()
    SQL = "INSERT INTO tb_ignorar(CLIENTE_NOME,Data_ignorada,CLIENTE_TELEFONE,CLIENTE_CONTATO,Média_ultimos_4_meses,Observação,CLIENTE_CNPJ_CPF,Data_novo_contato) VALUES ('" & Me.CLIENTE_NOME.Value & "','" & Now() & "','" & Me.CLIENTE_TELEFONE.Value & "','" & Me.CLIENTE_CONTATO.Value & "','" & Me.Média_ultimos_4_meses.Value & "','" & Me.Observação.Value & "','" & Me.CLIENTE_CNPJ_CPF.Value & "','" & Now() + 30 & "')"

    CurrentDb.Execute SQL

    Call limpaCampos

    End Sub

    Obrigado
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Como adicionar 30 dias a uma data VBA Empty Re: [Resolvido]Como adicionar 30 dias a uma data VBA

    Mensagem  Assis em 12/12/2017, 11:26

    Bom dia

    Troque o Now() por Date()

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/10/2017

    [Resolvido]Como adicionar 30 dias a uma data VBA Empty Re: [Resolvido]Como adicionar 30 dias a uma data VBA

    Mensagem  werlewow em 12/12/2017, 19:29

    deu certo Smile
    obrigado!!

      Data/hora atual: 24/10/2020, 01:13