Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Vertikal abgelegte "Datensätze" in Zeilen umwandel
zurück: INSERT mit SELECT subquery weiter: Abfrage nach Verfügbarkeit Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
hoschi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2004, 17:52
Rufname:

Vertikal abgelegte "Datensätze" in Zeilen umwandel - Vertikal abgelegte "Datensätze" in Zeilen umwandel

Nach oben
       

hallo!

Ich benutze eine vorhandene Datenbank (Access XP) wo die Daten einer Tabelle prinzipiell folgendermaßen abgelegt sind:

Wert_____________ID
---------------------------------
22 Jahre__________Müller
Paulstrasse 13_____Müller
13232 Berlin_______Müller

35 Jahre_________Schubert
Zillestrasse 2_____Schubert
14322 Berlin______Schubert

usw....

Wie bekomme ich diese flach in der Tabelle liegenden Werte wieder in einer "normalen" Tabelle umgewandelt, wo die Datensätze nebeneinander liegen? Geht das noch mit Access oder muss ich dafür ein VBS schreiben? Kann mir da vielleicht jemand einen Tipp geben? Vielen Dank im Voraus!

hoschi
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
01. Jun 2004, 20:29
Rufname:
Wohnort: Hannover / Seelze


AW: Vertikal abgelegte "Datensätze" in Zeilen umwa - AW: Vertikal abgelegte "Datensätze" in Zeilen umwa

Nach oben
       

Hallo hoschi,

ich denke ohne VBA wird es nicht gehen
und hoffe das Du einwenig Kenntnis über VBA hast....

Habe dir mal ein kleines Beispiel gebastelt,
was Du leicht, an Deine Bedürfnisse anpassen kannst...

rs!Id und rs!wert sind die Feldbezeichnungen deiner Tabelle die die Daten enthält.....
rs2!Name, rs2!Alter usw. sind die Feldbezeichnungen deiner neuen Tabelle die Du natürlich noch erstellen musst....
Code:
Function TabelleUmwandel()
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim DB As DAO.Database
    Dim Name As String
    Dim i As Integer
 
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("Deine_Tabelle_mit_den_Daten")
    Set rs2 = DB.OpenRecordset("Neu_Tabelle")
    While Not rs.EOF
        If Not Name = rs!ID Then
            rs2.AddNew
            rs2!Name = rs!ID
            rs2!Alter = rs!Wert
            Name = rs!ID
            i = 1
        End If
        If i = 2 Then rs2!Strasse = rs!Wert
        If i = 3 Then
            rs2!Plz = rs!Wert
            rs2.Update
        End If
        i = i + 1
        rs.MoveNext
    Wend
End Function

Bitte prüfe zuerst im VBA-Editor über EXTRAS/VERWEISE ob der Verwies "Microsoft DAO 3.xx Object Library" vorhanden ist..
Wenn nein musst du Ihn einfügen.. Das xx ist die Versionsnummer.

Wenn Du Probleme hast, einfach wieder fragen...

Gruß Helge
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: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3757 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 915 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: multiplizieren zweier verschiedener Datensätze 3 Stara 914 13. Jan 2005, 20:36
Skogafoss multiplizieren zweier verschiedener Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage um doppelte Datensätze zu ermitteln? 5 tom444 5067 14. Dez 2004, 23:49
Skogafoss Abfrage um doppelte Datensätze zu ermitteln?
Keine neuen Beiträge Access Tabellen & Abfragen: Buchstaben in Zahlen umwandeln 2 DoN-P 2000 07. Dez 2004, 20:27
MaiThai Buchstaben in Zahlen umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze anzeigen? 3 MichaelB 1123 19. Okt 2004, 12:45
lothi Anzahl der Datensätze anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1616 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Negativ Ergebnisse in 0 umwandeln 3 Forsi 595 28. Sep 2004, 17:26
Skogafoss Negativ Ergebnisse in 0 umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: datensätze suchen 13 mr@ 1515 13. Sep 2004, 10:21
meyster datensätze suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Zahl umwandeln 2 Lorenz 1018 01. Sep 2004, 18:45
Lorenz Datum in Zahl umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: 24 felder aus 1 DS in 24 versch. Datensätze kopieren. 3 Mirko 594 30. Jul 2004, 13:55
Willi Wipp 24 felder aus 1 DS in 24 versch. Datensätze kopieren.
Keine neuen Beiträge Access Tabellen & Abfragen: Summen über mehrere Datensätze bilden 5 Matti_71 1498 03. Jul 2004, 12:38
Willi Wipp Summen über mehrere Datensätze bilden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen