[Resolvido]Mês anterior

Olá pessoal tudo bem

Tenho dois campos:
txtData1 e txtData2

Queria que quando digitasse 10/02/2015 em txtdata1 preenchesse txtdata2 com 10/01/2015.
Mudaria só o mês o dia ficaria o mesmo.

Boa tarde,

Após algumas tentativas acho que consegui o ajudar...
Estava eu a complicar tanto quando resultado é simples...
Veja exemplo abaixo...

Abraço...

Era isso mesmo. Obrigado pela ajuda.
Sucesso.

De nada....

Abraço...

Roberto, desculpe mais percebi um pequeno erro.

Se coloco por exemplo: 01/01/2015 ele não retorna 01/12/2014.

Bom dia,

Substitua o seu código por o abaixo...

Private Sub Text3_AfterUpdate()
If Month(Me.Text3) <> 1 Then
Text1.Value = Day(Me.Text3) & "-" & Month(Me.Text3) - 1 & "-" & Year(Me.Text3)
Else
Text1.Value = Day(Me.Text3) & "-" & Month(Me.Text3) + 11 & "-" & Year(Me.Text3) - 1
End If
End Sub



Abraço...

Bom dia
Diferente do Roberto

Boa tarde,

Grande Assis, gostava de saber qual a diferença??? (Sem maldade..)
Algum erro no meu código ou poderia vir a ter?

Abraço...

Roberto
No meu PC com WIN 8 e Office 2007.
O seu exemplo ao atualizar o campo MesAgora, no campo MesAnterior do formulário não aparece o valor, mas aparece na tabela.
Cumprimentos

OK, obrigaodo...

Obrigado Roberto e Assis, tópico resolvido.