MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Data de Fim do Mês

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 112
    Registrado : 05/04/2016

    [Resolvido]Data de Fim do Mês

    Mensagem  Luís Antunes em Sex 25 Ago 2017, 23:49

    Tenho dois campos "Data" num Form [txtDataInicial] e [txtDataFinal]
    Utilizei o seguinte módulo:
    ______________________________________________
    Function GetNowLast(inputDate As Date) As Date

       dYear = Year(inputDate)
       dMonth = Month(inputDate)
       getDate = DateSerial(dYear, dMonth + 1, 0)
       GetNowLast = getDate

    End Function
    __________________________________________________
    Na Propriedade de [txtDataFinal] ao Entrar, chamei a função da seguinte forma:
    __________________________________________________
    Private Sub txtDataFinal_Enter()
    Call GetNowLast([txtDataInicial])
    End Sub
    ___________________________________________________
    Depurei o código e estava tudo bem. Abri o formulário e digitei uma data no campo [datainicial] e nada aconteceu no campo [dataFinal].

    Se tudo corresse bem ao digitar uma data inicial deveria aparecer a data do fim do mês no campo Data Final

    Alguma coisa esta a correr mal gostaria de saber o que?

    Grato

    Luís Antunes
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Data de Fim do Mês

    Mensagem  FabioPaes em Sab 26 Ago 2017, 01:40

    Veja aqui [Você precisa estar registrado e conectado para ver este link.]
    Forma bem simples!

    Porem sua função também funciona! Esta utilizando o evento errado!

    Coque a chamada da função no evento Após atualizar do Campo txtDataInicia! Assim ao preencher a data iniciar, e sair... ele coloca a data final no campo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 112
    Registrado : 05/04/2016

    Data de Fim do Mês

    Mensagem  Luís Antunes em Sab 26 Ago 2017, 10:51

    Bons dias Fábio
    Obrigado pela disponibilidade.
    Fiz tudo o que me recomendou. O resultado foi o mesmo.
    Fiz a experiência com o código de Alvaro Teixeira, e o mesmo resultado.
    Vou anexar A BD, com o form.

    Grato
    Luís Antunes
    Anexos
    FimMes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (217 Kb) Baixado 3 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Data de Fim do Mês

    Mensagem  FabioPaes em Dom 27 Ago 2017, 16:05

    Então, você não entendeu minhas instruções...

    Apague o Comando que tem no campo txtDataFinal.

    No campo txtDataInicial, no evento apos atualizar coloque:

    Private Sub txtDataInicial_AfterUpdate()

    Me.txtDataFinal = DataUD(Me.txtDataInicial)
    End Sub



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 112
    Registrado : 05/04/2016

    Data de Fim do Mês

    Mensagem  Luís Antunes em Dom 27 Ago 2017, 18:30

    Boas Tardes
    Perfeito Fábio!
    Com uma formula simples resultou em pleno.
    Muito agradecido

    Luís Antunes
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Data de Fim do Mês

    Mensagem  FabioPaes em Dom 27 Ago 2017, 20:22

    Grato pelo retorno! Até aproxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sab 18 Nov 2017, 13:56