[Resolvido]Como calcular MEDIANA e MODA

Boa tarde,
Gostaria de saber se tem como fazer um campo calculado em uma consulta o qual retornará a MODA ou a MEDIANA de uma lista de dados.

Por exemplo:
2, 2, 2, 3, 4, 4, 5, 6, 6

A MODA seria 2 pois aparece mais vezes, e a MEDIANA, seria 4, pois é o valor do meio entre o primeiro e último número.

Olá squall,

Use a consulta de referência cruzada para realizar os seus cálculos. O que você quer fazer CONTAR ou SOMAR?Existe uma lista do tipo de operações que você poderá fazer para seu campo calculado.

Boa tarde,
Function Mediana(Tabela As String, Campo As String, Optional NomeCampoAgrupamento As String = "", Optional CampoAgrupamento) As Double
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' o código pode ser utilizado livremente, desde que mencionado este cabeçalho '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'em 2013-07-10 para toxicsquall
Dim Rst As DAO.Recordset
If NomeCampoAgrupamento = "" Then
Set Rst = CurrentDb.OpenRecordset("SELECT [" & Campo & "] FROM [" & Tabela & "] ORDER BY [" & Campo & "];")
Else
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabela & "];")
Select Case Rst.Fields(NomeCampoAgrupamento).type
Case 4 'Integer
Set Rst = CurrentDb.OpenRecordset("SELECT [" & Campo & "] FROM [" & Tabela & "] WHERE [" & NomeCampoAgrupamento & "]=" & CampoAgrupamento & " ORDER BY [" & Campo & "];")
End Select
End If
Rst.MoveLast
Rst.MoveFirst

Rst.Move Int(Rst.RecordCount / 2)
If Rst.RecordCount Mod 2 = 0 Then
Mediana = Rst.Fields(0)
Rst.Move -1
Mediana = (Mediana + Rst.Fields(0)) / 2
Else
Mediana = Rst.Fields(0)
End If
Set Rst = Nothing
End Function

Function Moda(Tabela As String, Campo As String, Optional NomeCampoAgrupamento As String = "", Optional CampoAgrupamento) As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' o código pode ser utilizado livremente, desde que mencionado este cabeçalho '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'em 2013-07-10 para toxicsquall
Dim Rst As DAO.Recordset
If NomeCampoAgrupamento = "" Then
Set Rst = CurrentDb.OpenRecordset("SELECT Count([" & Campo & "]),[" & Campo & "] FROM [" & Tabela & "] WHERE Not IsNull([" & Campo & "]) GROUP BY [" & Campo & "] ORDER BY Count([" & Campo & "]);")
Else
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabela & "];")
Select Case Rst.Fields(NomeCampoAgrupamento).type
Case 4 'Integer
Set Rst = CurrentDb.OpenRecordset("SELECT Count([" & Campo & "]),[" & Campo & "] FROM [" & Tabela & "] WHERE Not IsNull([" & Campo & "]) AND [" & NomeCampoAgrupamento & "]=" & CampoAgrupamento & " GROUP BY [" & Campo & "] ORDER BY Count([" & Campo & "]) DESC;")
End Select
End If
If Rst(0) > 1 Then
Moda = Rst(1)
Else
Moda = "Sem Moda"
End If
Set Rst = Nothing
End Function

OBRIGADO