[Resolvidos]Data, preenchimento automático dos campos: mes, ano e dia da semana no formulario

Olá Programadores,
Preciso de uma força.
Tenho um formulário com os campos Data, Ano e Mes. Gostaria que após a digitação do campo Data ocorrece o preenchimento automático do campo Ano e Mes.
Exemplo:
Data: 01/02/2010
Ano:2010
Mes:Fevereiro

Tentei algumas funções nas fontes de controles dos campos Ano e Mês, mas não rodou.

Ola Dilson seja bem vindo ao fórum;

Veja o simples;

Private Sub txtData_AfterUpdate()
Me.txtAno.Value = Format(Me.txtData, "YYYY")
Me.txtMes.Value = Format(Me.txtData, "MMMM")
End Sub

Caro João Paulo,
Sua dica rodou legal no Projeto, Obrigado.

Valeu amigo.

e dia da semana? como ficaria?

ex: segunda, ou segunda-feira ou somente seg

É o simples;

Private Sub txtData_AfterUpdate()
Me.txtDia.Value = Format(Me.txtData, "dddd")
End Sub

(hummmm....) simples e agente complica! valeu

Valeu Carlos, precisando estamos ae.