Access-o-Mania

Access-Forum (Deutsch/German) => Tabelle/Abfrage => Thema gestartet von: Scholar am Januar 13, 2014, 22:00:18

Titel: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: Scholar am Januar 13, 2014, 22:00:18
Hallo!

Ich habe zu einer historischen Arbeit die Biographien zahlreicher Personen gesammelt. Die Literaturtitel, wo die Personen erwähnt werden, habe ich mittels eine m:n-Beziehung mit der Haupttabelle Person verbunden.

Meine Frage bezieht sich auf die Zwischentabelle BEZ-Belegttitel, die folgendermaßen aussieht:

ID Person - ID Belegtitel - Seite

Ich habe jetzt einen Bericht entwickelt, wo auch die Belegtitel angegeben werden. Das Problem ist, wenn in einem Literaturtitel eine Person mehrfach erwähnt wird, was in mehreren Zeilen aufgenommen worden ist; Für die Ausgabe würde ich das jetzt gerne zusammenfassen. Ich suche folglich eine Abfrage, die folgendes macht:
Wenn in zwei Zeilen ID Person und ID Belegtitel identisch sind, dann soll er die Inhalte aus der Spalte hintereinanderschreiben.

Hat jemand eine Idee?

Danke?
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: DF6GL am Januar 14, 2014, 08:25:12
Hallo,

das dürfte helfen:

http://dbwiki.net/wiki/VBA_Tipp:_Liste_per_SQL_aufbauen
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: oma am Januar 14, 2014, 14:24:18
Hallo,

such mal hier: Tabelle/Abfrage / Text in Abfrage zusammenfassen

ein etwas anders Beispiel mit einem Code

Gruß Oma
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: Scholar am Januar 17, 2014, 16:03:24
Hallo Oma!

Vielen Dank für Deinen Tipp! Habe versucht, das für meine Verhältnisse anzupassen, leider klappt das noch nicht ganz. Ich kenne mich aber bisher auch noch nicht bei Modulen aus. Wäre schön, wenn Du mir nochmals helfen könntest.

Ich habe jetzt ein Modul erstellt (ZP) mit folgendem Code

Public Function ZP(Feld As String) As String
strSQL = "SELECT IDPerson, IDBelegtitel, Seite FROM AbfBeleg WHERE IDBelegtitel ='" & Feld & "'" & " ORDER BY IDBelegtitel"
Set rs = DBEngine(0)(0).OpenRecordset(strSQL)

    Do While rs.EOF = False
        ZP = ZP & "  " & rs!Seite
        rs.MoveNext
   Loop

End Function


Darauf aufbauend folgende Abfrage:
SELECT IDPerson, IDBelegtitel, ZP([Seite]) AS Zeile
FROM AbfBeleg
GROUP BY IDPerson, IDBelegtitel


Wenn ich die Abfrage ausführen möchte, kommt aber die Meldung, dass er ZP als Funktion nicht erkennt. Muss ich bei Module irgendwo noch etwas einstellen?

Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: DF6GL am Januar 17, 2014, 16:16:16
Hallo,

ein Modul darf nicht gleich heißen wie eine Funktion/Sub, die es sonst wo noch gibt.
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: oma am Januar 17, 2014, 16:31:18
Hallo Scholar,

mal ein kleines triviales Beispiel zum Anschauen.

Gruß Oma
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: Scholar am Januar 17, 2014, 16:50:05
Die Abfrage sieht z.B. so aus:



IDPerson   IDBelegtitel   Seite
4350   Ellinger: Juristen der Reichsstadt Nürnberg (1954)   S. 159
4350   Ellinger: Juristen der Reichsstadt Nürnberg (1954)   S. 162
4350   Ellinger: Juristen der Reichsstadt Nürnberg (1954)   S. 173


Ist es das, was Du meintest?
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: oma am Januar 18, 2014, 19:10:35
Was soll die Frage bedeuten?; sie hat keinen rechten Bezug zu unseren Hinweisen!!

mein Beispiel hast du noch nicht angesehen?
Aus deiner dargestellten Abfrage  nehme ich an, du möchtest zu einem Autor und jedem Titel die zugehörigen Seiten in einer Spalte.

Schau dir mal hierzu ein weiteres Beispiel an; anpassen musst du es allerdings alleine.
Vor allem liegt das daran, dass wir deinen Tabellenaufbau nicht richtig kennen, evt. muss das Beispiel anders gestaltet werden

Gruß Oma
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: Scholar am Januar 18, 2014, 22:42:33
Oh, Oma, das tut mir leid. Ich habe verpeilt, dass Du in Deiner vorletzten Antwort eine Datei angefügt hat und habe das so interpretiert, dass Du ein Beispiel von mir wolltest. Sorry, dass Du deswegen mehr Mühe hattest.

Dafür klappt das jetzt dank Deiner Hilfe. Zunächst hat es wohl nicht bei mir funktioniert, da zwei Felder von mir Fremdschlüssel waren und daher Zahlfelder. Das ist mit dem Code aber wohl nicht kompatibel!? Aber das habe ich ändern können.

Vielen Dank!
Titel: Re: Spalte 3 zusammenziehen, wenn Inhalt Spalte 1 und Spalte 2 jewiels identisch
Beitrag von: oma am Januar 19, 2014, 12:28:55
Hallo Scholar,

habe mir schon gedacht, dass dein Tabellenaufbau anders ist, bzw. du mit Zahlen (Fremdschlüssel für Autor und Titel ) im Code arbeiten musst. Aber schön das du das hinbekommen hast und die Sache läuft.

Gruß Oma