Multiplicar valores numa Consulta Agrupar

Olá a todos,
A propósito de questão de colega no fórum, posto exemplo de como Multiplicar valores numa consulta Agrupar
Esta técnica, perde a performance da base de dados, mas obtemos o pretendido.

Foi criada uma função que recolhe os dados via VBA (dao):

Código:

Public Function fncAgrupaFator(dblMatricula As String) As Double
'Alvaro Teixeira (ahteixeira) - 2016 para MaximoAccess
Dim rs As DAO.Recordset
Dim strSql As String
Dim dblFator As Double

strSql = "SELECT * FROM RentPorMatricula WHERE Matricula = " & dblMatricula & " AND ANOMes >= " & Forms!frmConsulta!dtInicial & " AND ANOMes <= " & Forms!frmConsulta!dtFinal & ";"

Set rs = CurrentDb.OpenRecordset(strSql,

   Do While Not rs.EOF
       If rs.RecordCount = 1 Then
          dblFator = rs!FatorAcumulacao
       Else
           dblFator = dblFator * rs!FatorAcumulacao
       End If
       rs.MoveNext
   Loop

fncAgrupaFator = dblFator

rs.Close
Set rs = Nothing
End Function

Abraço