Office: Tabelle erstellen mit nur 80% des Bestandswertes

Hallo, ich habe eine Tabelle in der stehen verschiedene Artikel mit unterschiedlichen Bestandswerten. Diese ist absteigend nach Bestandswert sortiert.

Mit eine Abfrage (Summe) bekomme ich den Gesamtbestandswert über alle Artikel und mit (Wert mal 0,8) errechnet sich 80% des Gesamtbestandswertes. Soweit klar.

Nun möchte ich eine Tabelle erstellen in der die teuersten Artikel enthalten sind, bis die Summe des Bestandswerts 80% vom Gesamtbestandswert ergibt.

Hat vielleicht jemand eine Idee oder einen Ansatz wie sich so etwas bewerkstelligen lässt?

 

Hallo Barcadi,
ich würde mir in VBA eine Schleife bauen, die die Bestandswerte addiert, bis 80% erreicht sind.
ungetestet:

Code:

SET rs = CurrentDB.OpenRecordset("SELECT Bestandswert FROM tbl_Bestandwerte ORDER BY Bestandswert DESC")
Do
    n = n + 1
    Zwischensumme = Zwischensumme + rs!Bestandswert
    rs.MoveNext
Loop Until Zwischensumme >= 80VomGesamtWert

In n stehen dann die Anzahl der Datensätze von oben herab.

Gruß
Doming

 

Hallo Doming,
so etwas ähnliches habe ich mir schon gedacht, nur leider fehlen mir noch die SQL-Kenntnisse.
Ich werde es ausprobieren und weiter darüber berichten. Um bei deinem Codebeispiel zu bleiben....
ist es nicht möglich, den momentanen Datensatz vor dem Loop in eine neue Tabelle (tbl80Wert) zu schreiben?
Wenn die Loop-Bedingung erfüllt ist müsste ich doch dann gleich mein gewünschtes Ergebnis (alle Teile die zusammen 80% des Gesamtbestandes ergeben) erhalten. Oder um bei deinem Beispiel zu bleiben n = Anzahl der Datensätze. Wie erstelle ich eine Tabelle aus der einen Tabelle, bis die Anzahl erreicht ist?

 

Nach Anpassung deines Beispiels erhalte ich das Ergebnis, dass von über 7000 Datensätzen bereit nach 566 Datensätzen 80% des Gesamtbestandes erreicht ist.
wie bekomme ich jetzt diese 566 Datensätze in eine neue Tabelle?

 

Hallo,
interessant wäre es zu erfahren, wie die Daten später genutzt werden sollen und wie Du auf das obige Ergebnis kommst (8 Stelle hinterm Komma bei Währung?). Damit man etwas hat, auf das man aufbauen kann. So muss man irgendwelche Daten aus der Luft holen.

In Access ist es unüblich, temporäre Ergebnisse irgendwo abzuspeichern, sie werden dann errechnet, wenn man sie braucht.
Auch eine neue Tabelle wird nicht erstellt, man nutzt eine Abfrage, die zu jedem Zeitpunkt aktuelle Daten liefert.

 

sonst guck auch mal hier rein: TopValues-Eigenschaft (Spitzenwerte)

 

Da mir die ewige Suche nach laufender Nr und aufgelaufenen Summen auf die Nerven ging, hatte ich mir mal eine Funktion gebastelt, die sich einfach in Abfragen nutzen lässt und nicht jedesmal angepasst werden muss.

Ausgangstabelle


Funktion, die in ein allgemeines Modul geschrieben wird:

Code:

'Berechnung laufender Nr, laufender Summe, aufgelaufenem Prozentanteil
'
'in einer Abfrage
'In der Abfrage muss 1 Feld den Satz eindeutig identifizieren
'Aufrufergebnis: 'modus 1 = lfdnr, 2 = lfdsumme, 3 = Prozent von Gesamt
'Aufruf im Abfragefenster: MeinAbfragefeld: lfd(Modus;
'                                "Feldname des ID-Feldes in Hochkomma";
'                                [Feldname des ID-Feldes in eckingen Klammern];
'                                "Name meiner Abfrage in Hochkomma";
'                                "Name des Feldes welches kumuliert werden soll in Hochkomma";
'                                [Name des Feldes welches kumuliert werden soll in in eckingen Klammern])
'
Public Function lfd(modus As String, _
                    ID_feldname As String, _
                    lfdID As Long, _
                    qname As String, _
                    betrags_feldname As String, _
                    lfdbetrag As Double) As Double
    Dim rs As Recordset
    Dim db As Database
    Dim n As Integer 'Laufzaehler
    Dim b As Double  'Betragssumme laufend
    Dim g As Double  'Gesamtsumme Abfrage
    Dim p As Double  'Prozent von gesamt laufend
 
 
    On Error GoTo fehler
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(qname)
 
    If modus = 1 Then
             rs.MoveFirst
             n = 1
             With rs
               Do Until rs.Fields(ID_feldname) = lfdID Or .EOF
                  n = n + 1
                  rs.MoveNext
               Loop
               lfd = n
            End With
    GoTo allesok
    End If
 
    If modus = 2 Then
             rs.MoveFirst
             b = lfdbetrag
             With rs
               Do Until rs.Fields(ID_feldname) = lfdID Or .EOF
                  b = b + rs.Fields(betrags_feldname)
                  rs.MoveNext
               Loop
               lfd = b
            End With
    GoTo allesok
    End If
 
    If modus = 3 Then
             g = DSum(betrags_feldname, qname)
             rs.MoveFirst
             b = lfdbetrag
             With rs
               Do Until rs.Fields(ID_feldname) = lfdID Or .EOF
                  b = b + rs.Fields(betrags_feldname)
                  rs.MoveNext
               Loop
               lfd = Round(b / g * 100, 2) ' auf 2 Nachkommastellen gerundet
           
            End With
    GoTo allesok
    End If
 
    Err.Number = 9999
    Err.Description = "Ungültiger Parameter"

fehler:
    msgbox "Fehler in Funktion lfd: " & Err.Number & ", " & Err.Description, vbCritical, "LfdNr / LfdSumme"
 
allesok:

    Set rs = Nothing
    Set db = Nothing
 
End Function

Abfrage(Entwurfsansicht)


Abfrage (Ergebnisansicht)


Falls weitere Erklärungen benötigt werden, gerne melden.

 

Darauf dann einfach eine Tabellenerstellungsabfrage

 

Hallo Andreas,
leider kam ich erst jetzt dazu deinen Code anzupassen und aus zu probieren. Vielen Dank, funktioniert ganz gut.
Allerdings gibt mir die Abfrage bei LfdSumme ab Satz 273 sporadisch mal Werte mit vielen Nachkommastellen aus.
z.B. 6041969,80000001
gibt es die Möglichkeit in einer Abfrage das Format der Daten mit anzugeben?
Würde mich auch interessieren für eine Tabellenerstellungsabfrage.

 

In den Eigenschaften des Feldes im Abfrageentwurf kannst Du das Format einstellen. In Tabellen würde ich kein Format angeben, weil es sonst zu Rundungsfehlern kommt. Was anderes sind Feldtypen (Datum, Währung, Integer, etc.) Darstellungsformate beeinflussen den Wert nicht, sollten aber nur Anzeigen (Formulare, Berichte, etc.) Verwendung finden. Für Rundungen steht die Funktion Runden() / Round() zur Verfügung. Für kaufmännisches Runden gibts diverse Beispiele in den Foren.

 

Hallo Bacardi62
Zur Funktion Runden hier ein Link donkarls Access-Seiten