Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
verschiedene Daten in einem Feld ausgeben
zurück: Abfragen in Update Anweisung ob Ja/Nein Feld schon Ja ist weiter: Datenblatt - Formular wechsel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
JensG
Gast


Verfasst am:
01. Aug 2006, 18:03
Rufname:

verschiedene Daten in einem Feld ausgeben - verschiedene Daten in einem Feld ausgeben

Nach oben
       

Hallo,

ich habe folgende Tabelle:

Gruppe - Artikel_Nr
00008 - 91781
00008 - 90566
00008 - 90473
00008 - 92145
00008 - 90044

Jetzt möchte ich eine Abfrage erstellen, die mir in _einem_ Feld
die Artikel-Nummern ausgibt, durch Komma oder % verbunden.
Der Feldinhalt in der Abfrage sollte dann so aussehen:

91781,90566,90473,92145,90044

Kann mir hier jemand helfen? Danke vorab.

JensG
jens05
Moderator


Verfasst am:
01. Aug 2006, 20:10
Rufname:
Wohnort: ~~~~~


AW: verschiedene Daten in einem Feld ausgeben - AW: verschiedene Daten in einem Feld ausgeben

Nach oben
       

Hallo,
schau Dir mal die Funktion FnsGetFields im Beitrag Re: In Endlosformular DS mit 1:n Unterdatensätzen (III) an.

_________________
mfg jens05 Wink
JensG
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Aug 2006, 08:25
Rufname:

AW: verschiedene Daten in einem Feld ausgeben - AW: verschiedene Daten in einem Feld ausgeben

Nach oben
       

Hallo Jens05,

soweit ich das erkennen kann bezieht sich die Ausgabe der Daten auf
ein Formular und auf 2 Tabellen. Bei mir sollen die Daten in einem Feld
einer _Abfrage_ erscheinen und kommen nur aus einer Tabelle (verknüpft).
Bekomme den Code leider nicht so umgebastelt, dass es bei mir funkt.
Hat vielleicht noch jemand eine Idee dazu?
Trotzdem Danke für den Link.

_________________
Grüße JensG
jens05
Moderator


Verfasst am:
02. Aug 2006, 09:02
Rufname:
Wohnort: ~~~~~

AW: verschiedene Daten in einem Feld ausgeben - AW: verschiedene Daten in einem Feld ausgeben

Nach oben
       

Hallo,
  1. plaziere folgendes in einem modul
    Code:
    ' Menue: Extras -> Verweise Microsoft DAO 3.xx Object Library muss aktiv sein!

    Public Function FnsGetFields2(sField As String, sTableOrQuery As String, _
                                 sIndex As String, vIndex As Variant, _
                                 Optional bIndexIsText As Boolean = False, _
                                 Optional sSeparator As String = vbCrLf) As String
        Dim s       As String
        Dim sSQL    As String
        Dim rs      As DAO.Recordset
       
        sSQL$ = "SELECT * FROM " & sTableOrQuery$ & " WHERE " & sIndex$
        If bIndexIsText Then
            sSQL$ = sSQL$ & "='" & vIndex & "'"
          Else
            sSQL$ = sSQL$ & "=" & vIndex
        End If
        Set rs = CurrentDb.OpenRecordset(sSQL$)
        If Not rs.EOF Then
            rs.MoveFirst
            s$ = Nz(rs.Fields(sField$), "")
            rs.MoveNext
            Do While Not rs.EOF
                s$ = s$ & sSeparator$ & Nz(rs.Fields(sField$))
                rs.MoveNext
            Loop
        End If
        rs.Close
        Set rs = Nothing
        FnsGetFields$ = s$
    End Function
  2. Speichere das Modul mit einem Namen <> FnsGetFields
  3. Wähle das Menü EINFÜGEN - ABFRAGE und im folgenden Dialog "Entwurfsansicht". Bestätige mit OK.
  4. Den Dialog "Tabelle anzeigen" brauchst Du nur zu schließen.
  5. Wähle das Menü ANSICHT - SQL-ANSICHT.
  6. Nun genügt es den vorhanden Code ("Select ...") mit dem folgenden Code zu überschreiben:
    Code:
    SELECT   Gruppe,
             FnsGetFields("Artikel_Nr","dieTabelle","Gruppe",[Gruppe],True,", ") AS TestDaten
    FROM     dieTabelle
    GROUP BY Gruppe;
  7. passe das Wort dieTabelle an deinen Tabellennamen an
  8. Mit dem Menü ANSICHT - ENTWURFSANSICHT kannst Du die Abfrage im Entwurf studieren, mit ANSICHT - DATENBLATTANSICHT erhälst Du das Ergebnis. Speichern geht mit <STRG>+S.

_________________
mfg jens05 Wink
JensG
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Aug 2006, 09:54
Rufname:


AW: verschiedene Daten in einem Feld ausgeben - AW: verschiedene Daten in einem Feld ausgeben

Nach oben
       

Hallo Jens,

Spitze, läuft, bin begeistert. Smile
Arbeite zwar schon lange mit Access aber wenig mit Modulen.
Werde jetzt wohl öfter hier vorbei schauen.
Vielen Dank nochmals!

_________________
Grüße JensG
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Komment. u Daten in zelle schreiben, Zellenausrichtung festl 2 k@lle 816 06. Okt 2004, 11:49
k@lle Komment. u Daten in zelle schreiben, Zellenausrichtung festl
Keine neuen Beiträge Access Tabellen & Abfragen: Auswahlabfrage, berechnetes Feld, Bedingungen 1 trialrider 819 27. Aug 2004, 15:34
Pusteblume Auswahlabfrage, berechnetes Feld, Bedingungen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit YES/NO Feld 10 Annette G 883 17. Aug 2004, 11:46
Willi Wipp Abfrage mit YES/NO Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Feld ohne die Letzten 4 Zeichen 5 Jeany 826 29. Jul 2004, 17:41
Jeany Feld ohne die Letzten 4 Zeichen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Feld updaten bei Berichtaufruf 1 David 503 14. Jul 2004, 14:11
lothi Feld updaten bei Berichtaufruf
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellendaten auf Knopfdruck in Bericht ausgeben... 7 Nico150 694 24. Jun 2004, 12:30
Nico150 Tabellendaten auf Knopfdruck in Bericht ausgeben...
Keine neuen Beiträge Access Tabellen & Abfragen: Nur Jahr von Datum ausgeben 1 Gast 1837 28. Mai 2004, 22:07
lothi Nur Jahr von Datum ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Änderungen an abgefragten Daten vornehmen 1 mimey 1139 28. Mai 2004, 22:06
lothi Änderungen an abgefragten Daten vornehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenvergleich und Wiedergabe der nicht doppelten Daten 1 ChrisT 2735 18. Mai 2004, 10:08
mabe38 Tabellenvergleich und Wiedergabe der nicht doppelten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate in Abfrage nur aus einem Feld entfernen? 18 jobacke 1829 06. Mai 2004, 11:57
jobacke Duplikate in Abfrage nur aus einem Feld entfernen?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld"Strasse" teilen in Str und Haus_Nr 4 riker 695 01. Apr 2004, 11:12
riker Feld"Strasse" teilen in Str und Haus_Nr
Keine neuen Beiträge Access Tabellen & Abfragen: nicht-atomare Daten aus EXCEL importieren 2 Panther 908 29. März 2004, 16:33
Panther nicht-atomare Daten aus EXCEL importieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme