[Resolvido]Como subtrair meses da data de hoje.

Bom dia a todos.
Tenho uma consulta que em um campo coloquei uma formula (conforme  foto em anexo) : 'Data_inicial: Mês(Agora())-4 . Ela me trás o mês indicado, ou seja, 4 meses a trás. Ate então estava funcionando certinho, porém com a virada do ano (2018) estragou tudo rsrs, pois agora ele me retorna -3 como resposta, e queria q retornasse o mes 9 (referente ao ano passado). Alguma ideia?

Segue fotos

obrigado

VBA.DateAdd("m", 1, Now() )

Nao entendi, isso é uma formula? onde coloco?
Obrigado

Amigo...

crie 2 campos de texto e um botão

Option Compare Database

Private Sub Comando4_Click()
Adicionar_mes
End Sub

Sub Adicionar_mes()
Dim mes As Integer
On Error GoTo erro
mes = Texto0
Texto2 = Empty
If mes = Empty Then
Texto2 = Date
ElseIf mes = 0 Then
Texto2 = Date
Else
Texto2 = Format(VBA.DateAdd("m", mes, Now()), "dd/mm/YYYY")
End If
Exit Sub
erro:
MsgBox "Preencha um valor inteiro"
Texto0.SetFocus
End Sub

mas essa formula tenho em um campo de um consulta, entende? é um consulta que em um campo me informa qual é o mes de 4 meses atras, apenas isso. Nao tem como eu criar um botao

obrigado

Mande um modelo de exemplo...

Nao consigo mandar um exemplo pois se trata do bando de dados da empresa.. Porem consegui resolver o problema trocando meses por dias, ao inves de 4 meses a tras, coloquei 120 dias..

obrigado

Pode usar na sua consulta a seguinte expressão:

Código:

Mês(SomData("m";-4;Data()))