[Resolvido]Data de Fim do Mês

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

Veja aqui https://www.maximoaccess.com/t20806-resolvidoidentificar-ultimo-dia-util-de-cada-mes-usando-como-base-o-ano#152698
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.

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

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

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

Luís Antunes

Grato pelo retorno! Até aproxima se Deus quiser!