Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Beziehungen herstellen
  • nwa17.07.14 14:53
       └ RE: Beziehungen herstellen nwa18.07.14 01:24
          └ RE: Beziehungen herstellen nwa20.07.14 20:54
             └ RE: Beziehungen herstellen nwa23.07.14 20:32
  • Fremdschlüssel aus einem ERP System
  • RunnerRalf08.07.14 10:01
       └ RE: Fremdschlüssel aus einem ERP System wilo17.07.14 12:44
          └ RE: Fremdschlüssel aus einem ERP System RunnerRalf17.07.14 20:51
  • Reihe Nummer in Form
  • uldisccc09.07.14 13:06
       └ RE: Reihe Nummer in Form wilo17.07.14 12:42
  • alle Tabellenspalten mit Nullwerten ausblende
  • gerd12.07.14 17:54
       └ RE: alle Tabellenspalten mit Nullwerten ausblen... Karl Donaubauer14.07.14 20:22
          └ RE: alle Tabellenspalten mit Nullwerten ausbl... gerd16.07.14 20:21
             └ RE: alle Tabellenspalten mit Nullwerten aus... StefanWirrer17.07.14 09:42
  • Datum automatisch ändern
  • MartinZ08.07.14 09:42
       └ RE: Datum automatisch ändern Karl Donaubauer08.07.14 13:34
          └ RE: Datum automatisch ändern MartinZ09.07.14 08:26
             └ RE: Datum automatisch ändern Gunter Avenius09.07.14 11:29
                └ RE: Datum automatisch ändern MartinZ09.07.14 13:13
  • Wettbewerbsauswertung
  • werner.ka18.06.14 14:21
       └ RE: Wettbewerbsauswertung StefanWirrer23.06.14 15:56
          └ RE: Wettbewerbsauswertung werner.ka25.06.14 21:39
             └ RE: Wettbewerbsauswertung StefanWirrer26.06.14 13:26
                └ RE: Wettbewerbsauswertung Karl Donaubauer26.06.14 13:53
                   └ RE: Wettbewerbsauswertung StefanWirrer26.06.14 16:27
                      └ RE: Wettbewerbsauswertung Karl Donaubauer26.06.14 17:17
                   └ RE: Wettbewerbsauswertung StefanWirrer30.06.14 13:30
             └ RE: Wettbewerbsauswertung Karl Donaubauer26.06.14 13:37
                └ RE: Wettbewerbsauswertung werner.ka26.06.14 20:13
                └ RE: Wettbewerbsauswertung werner.ka01.07.14 08:34
                   └ RE: Wettbewerbsauswertung StefanWirrer01.07.14 12:51
                      └ RE: Wettbewerbsauswertung Karl Donaubauer01.07.14 16:33
                      └ RE: Wettbewerbsauswertung werner.ka03.07.14 08:43
                         └ RE: Wettbewerbsauswertung StefanWirrer03.07.14 13:45
                            └ RE: Wettbewerbsauswertung werner.ka08.07.14 09:45
       └ RE: Wettbewerbsauswertung kalio04.07.14 19:16
  • Übernahme von Feldinhalten des vorigen Datensatzes...
  • rdw04.07.14 14:03
       └ RE: Übernahme von Feldinhalten des vorigen Daten... Karl Donaubauer04.07.14 17:35
  • 2 kombinationsfelder mit einem formular verbinden
  • vincent18729.06.14 16:48
       └ RE: 2 kombinationsfelder mit einem formular verb... StefanWirrer30.06.14 13:13
  • sql mit "where" funktioniert nicht in fu...
  • Greiff23.06.14 23:07
       └ RE: sql mit "where" funktioniert nicht... Karl Donaubauer26.06.14 17:31
          └ gelöst: sql mit "where" funktioniert... Greiff26.06.14 22:57
  • Access Runtime -> Outlook, Bericht als E-Mail
  • Lorenz21.05.14 17:39
       └ RE: Access Runtime -> Outlook, Bericht als E-... Greiff25.06.14 22:23
  • Einzele Felder eines Formulars bearbeiten, sperren...
  • Mozi06.06.14 18:40
       └ RE: Einzele Felder eines Formulars bearbeiten, s... Karl Donaubauer06.06.14 21:40
          └ RE: Einzele Felder eines Formulars bearbeiten,... Mozi14.06.14 15:58
             └ RE: Einzele Felder eines Formulars bearbeite... Karl Donaubauer16.06.14 12:52
                └ RE: Einzele Felder eines Formulars bearbei... Mozi16.06.14 14:34
  • Access 2010: Abfrage
  • Danoffthewall14.06.14 22:45
       └ RE: Access 2010: Abfrage Karl Donaubauer16.06.14 11:58
  • Access Stammtisch München am 12.06.2014 (Do)
  • StefanWirrer10.06.14 12:48
  • Access97 nach Access/Win 8
  • ManfredPrefi05.06.14 19:43
       └ RE: Access97 nach Access/Win 8 Karl Donaubauer06.06.14 16:47
  • Hilfe VBA
  • Heims02.06.14 19:08
       └ RE: Hilfe VBA Karl Donaubauer03.06.14 01:00
    Karl Donaubauer
    Gesendet: 26.06.14 13:37
    Betreff: RE: Wettbewerbsauswertung



    Elite Veteran

    Beiträge: 744
    50010010025
    Ort: Wien
    Hallo, Werner!

    Nur mit SQL und TOP kommst du da nicht recht weiter. Zum einen, weil du eben die Spitzenwerte für jeden brauchst, zum anderen weil TOP Ränge mehrfach vergibt, wenn es mehrere gleiche Werte gibt.

    Für eine genaue Anleitung müsste man deine Tabellen und Felder kennen. Ich gehe in meinem Beispiel mal davon aus, dass du eine Abfrage "qryErgebnisse" hast mit zwei Feldern PersonId und Punkte, aufsteigend sortiert nach PersonId und absteigend nach Punkten. Die Abfrage zeigt also die erste Person beginnend mit ihrem besten Ergebnis, dann ihr zweitbestes Ergebnis usw., danach kommt die nächste Person.

    Vorgehen:

    Erstelle eine neue (Arbeits-) Tabelle "tblAuswertung" mit 2 Feldern: PersonId und Punkte

    Wähle im Ribbon "Erstellen" ganz rechts "Modul" und kopiere folgenden VBA-Code in das neue Modulfenster:

    Public Sub procTop()

    Dim db As DAO.Database
    Dim rsQuelle As DAO.Recordset, rsZiel As DAO.Recordset

    Dim lngPId As Long, lngPunkte As Long, i As Long
    Set db = CurrentDb

    'Zieltabelle leeren
    db.Execute "DELETE FROM tblAuswertung"

    Set rsQuelle = db.OpenRecordset("qryErgebnisse", dbOpenDynaset)
    Set rsZiel = db.OpenRecordset("tblAuswertung", dbOpenDynaset)

    Do Until rsQuelle.EOF

    If lngPId <> rsQuelle!PId Then
    i = 1
    lngPId = rsQuelle!PId
    lngPunkte = rsQuelle!Punkte
    Else
    i = i + 1
    If i = 2 Then
    lngPunkte = lngPunkte + rsQuelle!Punkte
    rsZiel.AddNew
    rsZiel!PId = lngPId
    rsZiel!Punkte = lngPunkte
    rsZiel.Update
    End If
    End If

    rsQuelle.MoveNext

    Loop

    Der Code geht durch alle Datensätze der Abfrage und schreibt die PersonId und die Summe ihrer besten zwei Ergebnisse in die Zieltabelle. Setze den Cursor irgendwo in den Code und drücke die Taste F5 zum Ausführen.

    -----
    Servus
    Karl
    *********
    Internationale Access-Konferenz: http://AccessDevCon.com
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
    Top of the page Bottom of the page


    Seite: < 33 34 35 36 37 38 ... 39 40 41 42 43 44 45 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)