Mediante una consulta no se puede hacer eso... pero si mediante un informe basado en una consulta (que al fin y al cabo, lo que tu necesitas es el informe).
Imagino que tienes una fecha de inicio de contrato y una fecha de fin, entonces tienes que calcular un tercer campo, que es la diferencia entre FchaFinal - Fecha Inicio
Cuando no exista Fecha final, la reemplazas por la fecha actual... y asunto arreglado.
Ten en cuenta una cosilla... debes definir como numérico el campo de cálculo (no de fecha) para la suma de las fechas y mostrar el resultado con el formato de campo.
Para ayudarte un poco más, el código que tendrías que poner en el evento "Al dar Formato" del apartado "Detalle" en el informe sería muy similar a este:
Private Sub EncabezadoDelGrupo1_Format(Cancel As Integer, FormatCount As Integer)
Dim CampoResultado as single
If IsNull(Me.FechaFinal) then 'En caso de que la fecha final sea nula
FechaFinal = date() 'La ajusta como la fecha de ahora mismo
End if
CampoResultado = FechaFinal-FechaInicial
End Sub