access ja fraktiilit?

harakka

Onko accessissa mahdollista valita taulukon tiedoista jollain kriteerillä osia sillälailla, että muutkin tiedot säilyvät mutta väliaikaisesti tehtäisii vain näille kyseisille tiedoille laskutoimituksia. Esimerkiksi sillä lailla, että jos on tuhat riviä, niin access valitsisi näistä 990 siten, että 5 pienintä ja 5 suurinta hylättäisiin? hieman kuten mäkihyppyjen arvostelussakin :)

6

387

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paakki

      voi tehdä miltei mitä vaan.
      Pieniä perusesimerkkejä:

      Ostot-taulukossa on Määrä-niminen tietue, jossa on luvut 1, 2, 3 ... 10.
      Tee hakukysely Ostot-taulukosta, johon laitat ehdoksi / ehdoiksi seuraavia:

      >8 antaa luvut 9 ja 10.
      2 And

    • harakka

      tulipa mieleeni, että mahdollisesti tämän ratkaisun voisi vaihtoehtoisesti korvata mediaanin käyttö.. siis saako accessissa laskettua mediaania mitenkään?? ainakaan minulla ei löytynyt sisäisistä fuuntioista mitään vastaavaa.

      • paakki

        keskiarvoa? Jos näin on, se saadaan määritetyksi esim. näin:
        =Keskiarvo([Juu])

        Antaa Juu-tietueiden keskiarvon.


      • harakka
        paakki kirjoitti:

        keskiarvoa? Jos näin on, se saadaan määritetyksi esim. näin:
        =Keskiarvo([Juu])

        Antaa Juu-tietueiden keskiarvon.

        en oikeastaan.. vaan juuri mediaania eli keskimmäistä arvoa. Minulla kun on sellainen tapaus, että saattaa olla tuhat lukua joista 999 on pieniä mutta yksi niin suuri, että keskiarvo muuttuu erittäin olennaisesti, niin voisin sen eliminoida juuri tällä mediaanilla, koska sehän ottaa keskimmäisen luvun järjestyksen perusteella.


      • Kunde
        harakka kirjoitti:

        en oikeastaan.. vaan juuri mediaania eli keskimmäistä arvoa. Minulla kun on sellainen tapaus, että saattaa olla tuhat lukua joista 999 on pieniä mutta yksi niin suuri, että keskiarvo muuttuu erittäin olennaisesti, niin voisin sen eliminoida juuri tällä mediaanilla, koska sehän ottaa keskimmäisen luvun järjestyksen perusteella.

        Mediaanihan lasketaan siten, että jos recordset tietueiden määrä on pariton niin otetaan keskimmäinen arvo ja ja jos parillinen niin lasketaan keskimmäisten arvojen keskiarvo elikä kokeileppa tätä

        Public Function Mediaani(Nimi As String, Kenttä As String) As Double
        Dim Temppi As Double
        Dim Alkuperäinen As Recordset
        Set Alkuperäinen = CurrentDb.OpenRecordset(Nimi, dbOpenDynaset)
        Alkuperäinen.Sort = Kenttä
        Dim Lajiteltu As Recordset
        Set Lajiteltu = Alkuperäinen.OpenRecordset()
        If Lajiteltu.RecordCount Mod 2 = 0 Then
        Lajiteltu.AbsolutePosition = (Lajiteltu.RecordCount / 2) - 1
        Temppi = Lajiteltu.Fields(Kenttä).Value
        Lajiteltu.MoveNext
        Temppi = Temppi Lajiteltu.Fields(Kenttä).Value
        Temppi = Temppi / 2
        Else
        Lajiteltu.AbsolutePosition = (Lajiteltu.RecordCount - 1) / 2
        Temppi = Lajiteltu.Fields(Kenttä).Value
        End If
        Temppi = Temppi
        End Function

        Private Sub Koe()
        Dim X As Double
        X = Mediaani("Henkilöt", "Ikä")
        MsgBox X
        End Sub


      • Kunde
        Kunde kirjoitti:

        Mediaanihan lasketaan siten, että jos recordset tietueiden määrä on pariton niin otetaan keskimmäinen arvo ja ja jos parillinen niin lasketaan keskimmäisten arvojen keskiarvo elikä kokeileppa tätä

        Public Function Mediaani(Nimi As String, Kenttä As String) As Double
        Dim Temppi As Double
        Dim Alkuperäinen As Recordset
        Set Alkuperäinen = CurrentDb.OpenRecordset(Nimi, dbOpenDynaset)
        Alkuperäinen.Sort = Kenttä
        Dim Lajiteltu As Recordset
        Set Lajiteltu = Alkuperäinen.OpenRecordset()
        If Lajiteltu.RecordCount Mod 2 = 0 Then
        Lajiteltu.AbsolutePosition = (Lajiteltu.RecordCount / 2) - 1
        Temppi = Lajiteltu.Fields(Kenttä).Value
        Lajiteltu.MoveNext
        Temppi = Temppi Lajiteltu.Fields(Kenttä).Value
        Temppi = Temppi / 2
        Else
        Lajiteltu.AbsolutePosition = (Lajiteltu.RecordCount - 1) / 2
        Temppi = Lajiteltu.Fields(Kenttä).Value
        End If
        Temppi = Temppi
        End Function

        Private Sub Koe()
        Dim X As Double
        X = Mediaani("Henkilöt", "Ikä")
        MsgBox X
        End Sub

        Sori väärä postaus tässä oikea

        Sub Mediaani()
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        Dim SQL As String
        Dim Temppi As Double
        SQL = "SELECT Ikä FROM Henkilöt"
        rs.CursorLocation = adUseClient
        rs.Open SQL, CurrentProject.Connection
        rs.Sort = "Ikä"
        rs.MoveFirst
        If rs.RecordCount Mod 2 = 0 Then
        rs.AbsolutePosition = (rs.RecordCount / 2)
        Temppi = rs!Ikä
        rs.MoveNext
        Temppi = Temppi rs!Ikä
        Temppi = Temppi / 2
        Else
        rs.AbsolutePosition = Int((rs.RecordCount / 2 1))
        Temppi = rs!Ikä
        End If
        rs.Close
        Set rs = Nothing
        MsgBox Temppi
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Hoitajalakko peruuntuu, tilalle joukkoirtisanoutumiset

      "Tehyn ja Superin hallitukset kokoontuivat tänään toteamaan, että tilanne edellyttää järeämpiä työtaistelutoimia." https://www.hs.fi/politiikka/art-2
      Maailman menoa
      739
      9245
    2. Johan tuli oikea aivopieru Britti Lordilta

      Emeritusprofessori Lordi Robert Skidelsky sanoi Suomen rikkovan YYA sopimusta joka on tehty Neuvostoliiton kanssaa 1948. Mitä pir
      Maailman menoa
      374
      8100
    3. Tehyn Rytkösellä tallessa tekstiviestit A-studiokohussa

      https://www.mtvuutiset.fi/artikkeli/a-studiosta-kohu-tehyn-rytkosen-mukaan-ministeri-linden-sai-paattaa-osallistujat-ohjelma-kiistaa-vaitteen/8407068
      Maailman menoa
      162
      5895
    4. William ja Sonja Aiello ERO

      Hyvä Sonja! Nyt etsit uudet kaverit ja jätät nuo huume- ja rahanpesu porukat haisemaan taaksesi!
      Kotimaiset julkkisjuorut
      54
      2420
    5. Oho! Seurapiirikaunotar, ex-missi Sabina Särkkä yllättää tällä harvinaisella kyvyllä: "Mulla on..."

      Sabina Särkkä on nähty monissa tv-reality-sarjoissa. Mutta tiesitkö, että Särkällä on valokuvamuisti? https://www.suomi24.fi/viihde/oho-seurapiirikaun
      Kotimaiset julkkisjuorut
      6
      2135
    6. Se siitä sitten

      Kirjoitan tänne kun en sulle voi. En vaivaa sua enää koskaan. En ikinä tarkoittanut olla ahdistava tai takertuva. Tunteet heräsi enkä osannut olla tyy
      Ikävä
      82
      1775
    7. Ohhoh! Rita Niemi-Manninen otti ison tatuoinnin - Herätti somekansan: "Täydellinen paikka!"

      Rita Niemi-Mannisen suuri, uusi tatuointi on saanut somekansan heräämään talvihorroksesta. Niemi-Manninen otti tatskan rakkauslomalla Aki-miehensä kan
      Kotimaiset julkkisjuorut
      20
      1719
    8. Harvoin julkisuudessa nähty Jari Sillanpää, 56, julkaisi uusia kuvia - Karisti Suomen pölyt jaloista

      Huumekohun jälkeen matalaa profiilia pitänyt Jari "Siltsu" Sillanpää on ollut vaitonainen elämästään. Tänä keväänä miehen some on ollut hiljainen. Nyt
      Kotimaiset julkkisjuorut
      7
      1498
    9. Ihastumisesta kertominen

      Olen päättänyt kertoa tunteistani ihastukseni kohteelle. Erityisen vaikeaksi tilanteeni tekee se, että kyseessä on ns. kielletty rakkaus. Olen jo toi
      Ihastuminen
      92
      1494
    10. Taas Venäjän tiedoittaja akka Varoitti Suomea ja Ruotsia liittymästä Natoon

      Juuri sopivasti julkaistu varoitus, kun Suomen eduskunta alkaa klo 13:50 käsitellä asiaa suorassa TV 1:n lähetyksessä. ILtasanomat.
      Maailman menoa
      440
      1399
    Aihe