Hi Dave,

Try working through this example and see if it helps:

    How to Use Code to Derive a Statistical Median
    http://support.microsoft.com/kb/210581


Tom Wickerath
Microsoft Access MVP

http://www.access.qbuilt.com/html/expert_contributors.html
http://www.access.qbuilt.com/html/search.html
__________________________________________

You need to find the total number of sold units, then get the middle one.
Bear in mind that this is air code, untested, etc etc but it's not
exactly complicated...
 
 dim totalSales as long
 dim jetSQL as string
 dim rst as DAO.Recordset
 dim numberSoFar as Long
 dim finalAnswer as Double ' or currency if you prefer

 totalSales = DSum("NumberSold", "Sales", True)

 jetSQL = "select Numbersold, price " & _
    "from Sales " & _
    "order by Price ASC"

 set rst = db.openrecordset(jetSQL, dbOpenSnapshot, dbForwardOnly)
 
 numberSoFar = 0
 finalAnswer = 0

 Do While finalAnswer = 0

   ' we should never get to the end of the recordset unless
   ' it was an empty table to begin with
   If rst.EOF then err.raise somethingUseful ' oops!
   
   numberSoFar = numberSoFar + rst("NumberSold")

   if numberSoFar * 2 > totalSales +1 then
   ' if we've gone past, we don't need to worry about interpolating
     finalAnswer = rst("Price")

   elseif numberSoFar * 2 = totalSales + 1 Then
     ' okay, it's exactly the middle one out of an odd number
     ' so we've got the answer
     finalAnswer = rst("Price")

   elseif numberSoFar * 2 = totalSales Then
     ' this is the first of the middle pair; we need to
     ' average this price and the next one
     finalAnswer = rst("Price")
     rst.MoveNext ' need to check for error here... :-)
     finalAnswer = (finalAnswer + rst("Price") / 2)

   else
     ' no joy yet, just get the  next record and move on
     rst.MoveNext

   end if

   ' return FinalAnswer...

Hope that helps

Tim F