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

2 participantes

    [Resolvido]Somar 1 ano automaticamente

    avatar
    Partigiano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/01/2016

    [Resolvido]Somar 1 ano automaticamente Empty [Resolvido]Somar 1 ano automaticamente

    Mensagem  Partigiano 28/2/2016, 13:29

    Pessoal, bom dia!
    Em uma tabela, tenho um campo no formato Data [VigenciaDe] e outro campo no mesmo formato chamado [VigenciaAte].
    O resultado do campo [VigenciaAte], seria a soma de 1 ano exato à data digitada no campo [VigenciaDe].
    Tentei de todas as formas inserir a função SomData ou DateAdd (aprendi olhando outras postagens aqui no fórum) no campo [VigenciaAte], mas não consegui.
    Montei uma consulta com esta função. Deu certo, mas não consegui trazer os dados da consulta para a tabela.
    Por último, tentei fazer isso num formulário usando um código que também peguei aqui no fórum, e deu certo parcialmente. Não ficou automático como eu desejava. Só funciona quando clico no campo, pois coloquei o código no "Evento" "Ao Clicar", porque nos outros não funcionou.

    Muito obrigado!
    Anexos
    [Resolvido]Somar 1 ano automaticamente AttachmentBanco de Dados2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (16 Kb) Baixado 11 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar 1 ano automaticamente Empty Re: [Resolvido]Somar 1 ano automaticamente

    Mensagem  Assis 28/2/2016, 13:57

    Boa tarde


    Private Sub VigenciaDe_AfterUpdate()
    Me.VigenciaAte = DateAdd("yyyy", 1, VigenciaDe)
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Partigiano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/01/2016

    [Resolvido]Somar 1 ano automaticamente Empty Re: [Resolvido]Somar 1 ano automaticamente

    Mensagem  Partigiano 28/2/2016, 14:57

    Muito obrigado, Assis!!!
    Fiquei o tempo todo tentando colocar o código no campo errado. Coisa de iniciante!
    Vou aplicar em meu BD antigo e, creio, pelos testes rápidos que fiz, que não vai afetar os dados já digitados.
    Em um ano terei todos os dados do campo [VigenciaAte] atualizados.

    Mais uma vez, muito obrigado.

    Bom Domingo!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar 1 ano automaticamente Empty Re: [Resolvido]Somar 1 ano automaticamente

    Mensagem  Assis 1/3/2016, 10:28

    Paulo
    Obrigado pelo retorno

    Falta o "Resolvido"


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Partigiano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/01/2016

    [Resolvido]Somar 1 ano automaticamente Empty Re: [Resolvido]Somar 1 ano automaticamente

    Mensagem  Partigiano 1/3/2016, 12:39

    Assis, bem que procurei o botão "Resolvido", mas não encontrei. kkkk

    Agora, achei....

    Muito obrigado.


      Data/hora atual: 26/1/2022, 23:56