Going nuts here . . .
When I compile this I get the dreaded Compile error: Expected Identifier on [ClosePrice] As String) As Double
I'm at a loss . . .
thanks . . . Rick
When I compile this I get the dreaded Compile error: Expected Identifier on [ClosePrice] As String) As Double
I'm at a loss . . .
Code:
Option Compare Database
Public Function MedianOfRst(RstName As String, [ClosePrice] As String) As Double
'This function will calculate the median of a recordset. The field must be a number value.
Dim MedianTemp As Double
Dim RstOrig As Recordset
Set RstOrig = tblhistorical2012.OpenRecordset(RstName, dbOpenDynaset)
RstOrig.Sort = ClosePrice
Dim RstSorted As Recordset
Set RstSorted = RstOrig.OpenRecordset()
If RstSorted.RecordCount Mod 2 = 0 Then
RstSorted.AbsolutePosition = (RstSorted.RecordCount / 2) - 1
MedianTemp = RstSorted.Fields(ClosePrice).Value
RstSorted.MoveNext
MedianTemp = MedianTemp + RstSorted.Fields(ClosePrice).Value
MedianTemp = MedianTemp / 2
Else
RstSorted.AbsolutePosition = (RstSorted.RecordCount - 1) / 2
MedianTemp = RstSorted.Fields(ClosePrice).Value
End If
MedianOfRst = MedianTemp
End Function