Multiplicar valores numa Consulta Agrupar

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

Multiplicar valores numa Consulta Agrupar

Mensagempor ahteixeira » 24 Mai 2017, 02:13

Olá a todos,
Segue abaixo 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: Selecionar todos

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
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante