데이터 집합의 중앙값에 대한 액세스에서 가장 좋은 VBA 접근 방식

Question

나는 액세스 및 VBA의 초보자입니다. 중간 값을 계산하는 데 사용하는 함수가 있습니다. 현재 함수는 도메인 함수로 작동하며 나머지 데이터 쿼리/보고서를 구성하는 대신 모든 데이터를 사용하여 중앙값을 계산합니다. 이 코드를 수정하는 방법이나 보고서를 만드는 데 사용 된 데이터 집합의 중앙값을 찾는 더 나은 방법을 알고 싶습니다.

Option Compare Database 
Option Explicit 



Function DMedian(tName As String, fldName As String) As Single 
    Dim MedianDB As DAO.Database 
    Dim ssMedian As DAO.Recordset 
    Dim RCount As Integer, i As Integer, x As Double, y As Double, _ 
     OffSet As Integer 
    Set MedianDB = CurrentDb() 
    Set ssMedian = MedianDB.OpenRecordset("SELECT [" & fldName & _ 
      "] FROM [" & tName & "] WHERE [" & fldName & _ 
      "] IS NOT NULL ORDER BY [" & fldName & "];") 
    'NOTE: To include nulls when calculating the median value, omit 
    'WHERE [" & fldName & "] IS NOT NULL from the example. 
    ssMedian.MoveLast 
    RCount% = ssMedian.RecordCount 
    x = RCount Mod 2 
    If x <> 0 Then 
    OffSet = ((RCount + 1)/2) - 2 
    For i% = 0 To OffSet 
     ssMedian.MovePrevious 
    Next i 
    DMedian = ssMedian(fldName) 
Else 
    OffSet = (RCount/2) - 2 
    For i = 0 To OffSet 
     ssMedian.MovePrevious 
    Next i 
    x = ssMedian(fldName) 
    ssMedian.MovePrevious 
    y = ssMedian(fldName) 
    DMedian = (x + y)/2 
    End If 
    If Not ssMedian Is Nothing Then 
    ssMedian.Close 
    Set ssMedian = Nothing 
    End If 
    Set MedianDB = Nothing 
End Function 

Answer 1

사용자가 만든 것으로 사용자 지정 보고서에 대한 평균을 계산 참조하는 경우, 단순히 쿼리를 저장하고 'TNAME'대신 테이블 이름에 쿼리 이름을 전달합니다.