Converter dia em data atual.

Bom dia. Tenho um campo de vencimento para digitar somente o dia e preciso que esse dia seja convertido em uma data completa. Exemplo: digito 15 e me retorna 15/01/2019.
Isso é possível?
Obrigado.

Juliano

Evento após atualizar do campo

Código:

If Nz(Me.ActiveControl) = "" Then Exit Sub
   
Me.ActiveControl.Value = DateSerial(Year(Date), Month(Date), Me.ActiveControl.Value)

Obrigado, mas o campo ficou em branco. Não converteu. O campo está no formato Número com 2 dígitos.
Na verificação imediata da primeira linha deu "Erro de compilação. Era esperado: expressão."

basta então retirar o formato do campo para que não seja um número com dois dígitos e possa virar data

Não deu. Mudei o campo pra formato Número sem dígito e apareceu um número no lugar (-632164). Mudei para texto, não deu.

Veja...

Ok, deu certo mas com uma caixa de texto não acoplado. O meu campo (DiaVencimento) vem de uma tabela. Como eu faço para ele 'acoplar' ao campo da tabela?
Desse formulário sairão relatórios baseados em consultas com cálculos de datas que vem principalmente desse campo de data.

Veja

Muito bom. Esse código pode ser adaptado para o meu caso? Preciso que a virada do mês ou ano, seja alterado, afinal é o dia do vencimento.

O que eu digo é: não vale a pena complicar o simples. Permitir que seus usuários digitem a data completa é melhor que achar uma forma mirabolante de completar a data. Talvez o que pretendes seja geração de parcela e também ajuste de data de vencimento para dia útil e já vi muitos exemplos no fórum. Boa sorte.

Sim, com certeza é um complicador mas pensei na possibilidade de evitar que todo mês o usuário do banco tenha que digitar a data de vencimento de cada um dos cadastrados.

Ahhh... então o que você quer é replicar a data informada em um cadastro em outros cadastros. Certo?

Não deu. O objetivo era fazer o usuário digitar somente o dia e ao sair do campo ele atualizaria para data. Ex: digitaria 8 e seria convertido para 08/03/2019, ou seja, mês e ano atual. Isso seria importante no sentido de não precisar ficar todo mês atualizando a data do vencimento. O dia digitado definiria todos os meses seguintes.