Access - CAPTAR FECHAS

HOLA NECESITO ACTUALIZAR UN CAMPO FECHA DE REVISION QUE DEBE COGER DE UN SUBFORMULARIO QUE CONTIENE FECHAS, LA ÚLTIMA Y SUMARLE POR EJEMPLO 1 MES Y METERLO EN OTRO CAMPO, PROXIMA REVISION, ¿SE ENTIENDE?
BUENO MI DUDA ES COMO SE COGE DEL SUBFORMULARIO LA ÚLTIMA FECHA, GRACIAS

deberias usar un boton de comando y en el vento al hacer click pones
Private Sub BtnFECHA_Click()

Dim DateNew As Variant
On Error GoTo errorBtnFECHA

Me![PROXIMAREVISION].SetFocus
DateNew = GetDate(Me![PROXIMAREVISION])
If Me![PROXIMAREVISION] <> DateNew Or IsNull(Me![PROXIMAREVISION]) Then
Me![PROXIMAREVISION] = DateNew
End If
Me![PROXIMAREVISION].SetFocus

errorBtnFECHA:
Exit Sub

End Sub

Muchisimas gracias por tu ayuda, pero es que me da un error con la funcion GetDate, ¿la tengo que definir a parte no ?
Gracias de nuevo