Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

how do multiply values in one field

Discussion in 'Information Technology' started by sewer rat, Nov 5, 2005.

  1. sewer rat

    sewer rat
    Expand Collapse
    Guest

    i am tring to calculate a geometric mean in a report that is made from a
    query. the calculation in excel would look like this
    (a*b*nth....)^(1/nth)
     
  2. Loading...


  3. Tom Wickerath

    Tom Wickerath
    Expand Collapse
    Guest

    You can call the geometric mean function in Excel, which is easier than
    writing a custom function. See the following KB article:

    How to call Excel functions from within Access 2000
    http://support.microsoft.com/?id=198571

    These samples use early binding, so they require that a reference by checked
    for the "Microsoft Excel X.X Object Library", where X.X is the version number
    (9.0 for Office 2000, 10.0 for Office 2002 and 11.0 for Office 2003). You can
    also use late binding, which will free your code of version specific
    references.

    The following early bound code example works in Access, after setting a
    reference to Excel:

    Option Compare Database
    Option Explicit

    Sub xlGeoMean()
    On Error GoTo ProcError

    Dim objExcel As Excel.Application
    Set objExcel = CreateObject("Excel.Application")

    MsgBox objExcel.Application.GeoMean(4, 5, 8, 7, 11, 4, 3)


    ExitProc:
    ' Cleanup
    On Error Resume Next
    objExcel.Quit
    Set objExcel = Nothing
    Exit Sub
    ProcError:
    MsgBox "Error " & Err.Number & ": " & Err.Description, _
    vbCritical, "Error in procedure xlGeoMean..."
    Resume ExitProc
    End Sub


    Tom

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

    "sewer rat" wrote:

    i am tring to calculate a geometric mean in a report that is made from a
    query. the calculation in excel would look like this
    (a*b*nth....)^(1/nth)
     

Share This Page