Office: (Office 2007) über eine Schleife Zelle füllen

Betrifft: über eine Schleife Zelle füllen
Hallo, liebe Freunde, kann mir jemand helfen?
Ich habe eine Access-Abfrage (im MDB-Format) namens: „A_gesmt_mit_KG“
Dort gibt es ein das Feld für die Personen-ID (Zahl): „Nro“
und entsprechend dazu den Personennamen (String): „Namekomlpett“
Und die zugeordneten Gruppenamen, wo diese Personen Mitglied sind, das ist jedoch mehrfach der Fall, siehe Beispiel-Liste.
Dann gibt es die Felder für die Gruppen-ID (Zahl): „ID“
und entsprechend dazu den Grupppennamen (String): „NameGruppe“
Ich habe eine neue Abfrage namens: „A_gesmt_mit_KG_inZelle“
In dieser Abfrage möchte ich gerne die Gruppen in der eine Person ist in einer Zeile zusammenfassen. Also pro Person soll in einer Zeile und in einem Feld eine Zusammenfassung / Reihung der Gruppen sein.
Die Daten sind zum Beispiel so:
Nro; Namekomlpett; ID; NameGruppe
123; Mayer; 567; Senioren
123; Mayer; 577; Chor
123; Mayer: 555; Küche
321; Müller; 124; Kinder
222; Schulze; 124; Kinder
232; Moritz; 222; Hof
Und sollen so in eine neue Anfrage (oder Tabelle), also in nur Zwei Spalten:
Name; beiGruppen
Mayer; „Senioren; Chor; Küche“
Müller; „Küche; Kinder“
Schulze; Kinder
Moritz; Hof
Danke, wenn mir jemand hilft

:)

 

Moin und willkommen im Forum.
Wenn Du die Suche hier bemühst mit dem Suchbegriff "verketten", findest Du einige Beispiele, wie das geht.

 

Hallo,
hier steht wie man die Sache lösen kann:
VBA Tipp: Liste per SQL aufbauen – DBWiki

Viele Grüße
Susann

 

Hallo,
SQL der Abfrage
Code:

Code in einem Modul

Code:

tschüss
Susann

 

Danke SusannJo,
Dein Beitrag war mir eine riesige Hilfe.
Ich reagiere spät, weil ich ins Krankenhaus kam. Es geht mir wieder gut.
Und ich habe jetzt (im KH-Bett) Deine Hilfe erfolgreich ausprobiert.
Leider hebe ich es nicht ganz verstanden.
Wen Du einen netten Hang zu belehren hast, könntest Du mir hier jede Zeile eine Kurze Erläuterung machen was da passiert.
Danke nochmals.
Jetzt habe ich ein schickes Programm für meine Gemeinde.

Mit Public Function habe ich noch nicht aktiv gearbeitet. Offensichtlich ruft sich das selbst auf und führt sich selbst aus oder wieso ging das alles automatisch?

 

Könntest Du mir das wie gesagt erklären?

 

Moin, ich versuchs mal in Kürze:

1. AlleGruppen([nro]) AS beiGruppen in der Abfrage ruft die Funktion AlleGruppen auf und übergibt ihr den Wert aus dem Feld nro.
2. Die Funktion AlleGruppen ruft die Funktion fnConcatColumn auf und übergibt ihr den Abfrage SQL-String mit dem Wert aus Feld nro als ID.
3. Die Funktion fnConcatColumn erstellt auf Basis der übergebenen Abfrage ein Recordset (quasi eine virtuelle Tabelle), liest daraus die gefundenen Werte und schreibt diese mit Komma getrennt in die Textvariable strErgebnis der Funktion AlleGruppen.
4. Dieses Ergebnis wird dann an die ursprüngliche Abfrage übergeben.

Public sind die Funktionen, damit sie von dieser Abfrage erreichbar sind (wären sie als Private deklariert, würden sie nur innerhalb des Moduls gefunden).
maike

 

Danke.
Ich arbeite immer mit Private oder Public Code
Für was ist
"Public Function", also Function anzuwenden?

 

Hallo,
Du musst unterscheiden zwischen einen Klassenmodul und einem allgemeinen Modul.
Ein Modul innerhalb eines Formulars/Berichts enthält den Code der innerhalb der Klasse (Formular/Bericht) benötigt wird.
In ein allgemeines Modul kommt Code der z.B. auch über einen Aufruf aus einer Abfrage erreichbar sein muss.
Private oder Public hat damit nur bedingt zu tun.
Sowohl in einem Klassen als auch in einem allgemeinen Modul wird beides verwendet.

 

Danke, das hilft mir.
Aber was eine "Function"?

 

Ich habe noch ein Problem:
Ich habe eine "Excel"-Formel in dem Abfrage-Formular:
z.B. so: Alter: = wenn(....usw.), das checkt die Abfrage als falsch und es geht nicht
Mit Hochkomma geht es so halb, also so: Alter: = 'wenn(....usw.)'.
Es kommt richtig in Excel an, rechnet aber nicht (auch nicht wenn ich das Zellenformat ändere.
Die Formel rechnet, wenn ich das "="-Zeichen in Excel lösche und neu einsetze.

Das Problem ist dass Excel den String, der von Access kommt nicht als Formel interpretiert.

 

Muss das unbedingt nach Excel, wieso rechnest du das nicht direkt in Access?
FAQ 2.7 Alter berechnen
maike

 

Hi,

das kommt daher, dass du die Formel als Feldinhalt übergibst und nicht als "Formula"-Eigenschaft.
Letzteres geht jedoch nur per VBA und nicht mit einer Abfrage.

Die Berechnung des Alters muss also wie bereits (mehrfach) gesagt wurde, in der Abfrage stattfinden und nicht erst in Excel.

 

Es ist nicht für mich.
Mitglieder unseres Vereins sollen gefilterte Listen im Excel-Format bekommen.
Die Listen werden von der zentralen Datenbank ab und dazu aktualisiert / verschickt.
Der Excel-Anwender soll natürlich immer das aktuelle Alter sehen, also muss die Formel in Excel stehen.
Ich hätte gerne eine hoch flexible Excel-Tabelle aus Access erzeugt ohne ohne nochmals in Excel eine VBA-Routine laufen zu lassen. Die Alterspalte von Hand einzubauen ist bei der Vielzahl der Exporte zu aufwändig.

Wen Ihr Experten keine Antwort habt muss ich wohl doch mit VBA frisierte Exeltabellen vorgeben, was auch umständlich ist.

 

Das ist die Antwort, anders geht es nicht!