Office: (Office 2003) Gruppenwechsel erkennen in Tabelle

Hallo zusammen,

ich bin ABAP Entwickler und schreibe gelegentlich Programme in VB für Excel. Jetzt soll ich für einen Kollegen eine eigentlich einfache Aufgabe in ACCESS lösen: Für alle gleichen Materialnummern in Spalte A soll die Summe aus Spalte B ermittelt werden und einmal in Spalte C geschrieben werden. In Excel kein Problem da ich die Tabelleneinträge ja sortieren kann. Aber wie mache ich das in ACCESS? Sämtliche Versuche die Tabelle zu sortieren mit Beispielen aus den Foren funktionieren nicht. Obwohl in der Tabellenansicht die ersten 20 Materialnummern gleich sind findet das Programm nur 7 die hintereinander kommen. Mir ist klar dass ich die Tabelle physisch nicht sortieren kann, aber wie kann ich dies zur Laufzeit machen? Muss ich die Einträge in ein Array einlesen und die Werte pro Materialnummer addieren?

Hier Mein Versuch:

Sub calculat_IP()
Dim Db As Database
Dim Rs As Recordset
Dim i_row As Integer
Dim i_last_row As Integer
Dim d_sum As Double
Dim s_soc_old As String


Set Db = CurrentDb()
'Set Rs = Db.OpenRecordset("SAG_SOC_Calc", dbOpenDynaset)
Set Rs = Db.OpenRecordset("Select * From SAG_SOC_Calc Order By [SOC_Materialnummer]", dbOpenDynaset)
Rs.MoveLast '

:)

 

Das kannst du mit einer Abfrage machen, VBA braucht man dafür nicht.

Anbei die SQL-Ansicht (klick mich) einer Abfrage zum Testen:
Code:

 

Hallo Arne,

Vielen Dank für die schnelle Antwort, werd ich gleich ausprobieren!

Schönen Abend noch,

Gruß Wolfgang

 

Hallo Arne,

ich habe die Abfrage erstellt und bekomme als Ergebnis die Materialnummern und die Summe aller gleichen Mat. Wenn ich meinen Kollegen aber richtig verstanden habe will er als Ergebnis die gesamte Tabelle UND in der letzen Spalte jeweils die Summe aller gleichen Materialnummern. Entweder einmal bei einer beliebigen Materialnummer oder in jeder Zeile. Wie kann ich die Abfrage in die Tabelle integrieren oder wie müsste die Abfrage aussehen damit ich alle Spalten angezeigt bekomme? Muss ich dann doch mit VBA arbeiten?

Danke,

Gruss Wolfgang

 

Du könntest mit einer Unterabfrage arbeiten. Eine andere Möglichkeit wäre der Einsatz von DSum() in einer "berechneten" Spalte der Abfrage.

Anbei ein ungetesteter Ansatz mit einer Unterabfrage:
Code:

 

Funktioniert auch nicht mit der Unterabfrage (in ABAP ist das ein nested select), die Summenspalte bleibt leer und die erste Spalte SMatNummer auch. Ich versuch es jetzt mal mit einem Beispiel in ABAP und dann werd ich mich erst mit der SQL Syntax näher beschäftigen müssen damit ich es umschreiben kann. Und ich kauf mir ein ACCESS Buch ;-)

Danke für Deine Mühe,

Gruss Wolfgang

 

Den Ansatz von Arne würde ich auch so verwenden. Ihm ist nur ein Flüchtigkeitsfehler unterlaufen (verwechselter Alias):
Code:

 

Danke, aber jetzt steht in jeder berechneten Spalte immer der Wert der Zeile mal Anzahl der gleichen Materialnummern:

Mat Stück Summe
mat1 1 3
mat1 4 12
mat1 30 90
mat2 2 4
mat2 5 10

So sollte es aussehen:
Mat Stück Summe
mat1 1 35
mat1 4 35
mat1 30 35
mat2 2 7
mat2 5 7

 

Code:

Das ist jetzt das gleiche wie oben mehrfach gezeigt. Mit dauernd wechselnden Bezeichnungen sollte man umgehen können oder aber diese vermeiden.

 

Das mit den Bezeichnungen war doch nur ein kurzes Beispiel um klarzustellen was die Abfrage zurückbringt und wie das Ergebnis eigentlich aussehen soll *sos

Es gibt in der Tabelle insgesatm 10 Spalten, die Namen sind jetzt mal nebensächlich. Der Wert aus der 9. Spalte soll so oft addiert werden wie es gleich Materialnummern in der 1. Spalte gibt und dann in die 10 Spalte geschrieben werden. Es sollen aber ALLE Spalten ausgegeben werden, in der 10. eben der berechnete Wert. Im Anhang ein Beispiel in Excel.

Kann das denn wirklich in einer SQL Abfrage gelöst werden? Die Tabelle hat 25.000 Einträge, wenn für jede Zeile die Abfrage aufgerufen werden soll für die Summenberechung in der letzten Spalte sind das 25.000 +1(für den Tabelleninhalt an sich) select statements. Ist es nicht effektiver die Tabelle einmal zu lesen und den fehlenden Wert dann mit VBA zu berechnen?

 

Effektiv wäre es, die Summen einmal pro Mat zu ermitteln, sprich eine simple Gruppierung/Aggregierung anzuwenden. Damit ergibt sich dann aber eine andere und zusätzliche Tabelle (in Form einer Abfrage).

Excel-like-Tabellen nachzubauen ist eben aufwändiger und eigentlich nicht empfehlenswert.

 

Hallo,

ich habe den Verdacht, dass hier grundsätzliche Missverständnisse vorliegen. Die vorgestellten Lösungsvorschläge hätten längst zum Erfolg führen müssen, deine Ergebnismeldungen finde ich nicht nachvollziehbar.

Solltest du das nicht mit Access lösen?!

Vielleicht auch mit zweien, aber ganz sicher ohne VBA. *wink.gif*

Das ist ja auch richtig so, denn wie man sieht sind das ja alles Auswahlabfragen, sozusagen als erster Schritt, auf deren Basis dann eine Aktualisierungsabfrage erstellt werden könnte.

 

Hallo zusammen,

@anne
ja, da bin ich wohl mißverstanden worden oder hab mich so ausgedrückt. ABAP deshalb weil ich da die SQL Syntax kenne, wenn es dann da funktioniert hätte, hätte ich versucht es in reines SQL zu übersetzen.

@ebs17
-> Excel-like-Tabellen nachzubauen ist eben aufwändiger und eigentlich nicht empfehlenswert.

Will Excel ja gar nicht nachbauen, will schlicht die Anfrage meines Kollegen lösen, mir fehlen aber die Kenntnisse dies in ACCESS zu machen.

Kann jemand ein gutes Buch empfehlen, im Forum "Bücher" ist man sich auch nicht einig.

Sollte jemand zugriff auf SAP Daten über VBA (RFC) brauchen, da kann ich helfen.

Gruss Wolfgang

 

Hier eine Lösung falls es jemand interessiert, nicht auf meinem Mist gewachsen, mit VBA:

Code:

Code:

 

Wow. Benötigt man in SAP / ABAP derart viel Aufwand, um ein paar Summen zu ermitteln, oder ist das nur persönlicher Stil?

Ich bin nach wie vor davon überzeugt, dass die in mehreren Varianten gezeigte gleiche Abfrage genau das macht, was Du in Deiner Beschreibung wünschst, und das einfach, locker und schnell.

Die eigentliche Abfrage wäre eigentlich
Code:

... und man hätte ohne besondere Begründung nicht das Bestreben, alles (Ausgangsdaten und Berechnungsergebnisse) in eine Tabelle (eben Excel-like) packen zu müssen.