Durchläuft Access-Tabelle und für jede Spalte mit Daten

Ich denke, das sollte einfach sein, aber ich kann nicht den richtigen Weg finden, es zu tun. Ich habe eine Tabelle mit einer ID-Spalte und 10 Zeilen folgenden beschriftet Frage #1 Frage #2, und so weiter.

Gibt es keine doppelten ID-Nummern, aber jede ID-Nummer haben könnte, mehr als eine Reihe von Fragen stellen.

Möchte ich die ID-Zeile und für jede andere Frage, wo anwendbar, erstellen Sie eine neue Zeile mit der gleichen ID. Also, wenn eine ID-Nummer hat, eine Frage, finden Sie unter der Frage #1 und Frage #2, Id wie um ein Duplikat zu erstellen, die für diese ID-Nummer haben und haben beide Fragen aufgelistet, die unter einer Spalte nennen wir es "Fragen Insgesamt", nach dieser ID-Nummer. Dies kann durch erstellen einer neuen Tabelle.

Beispiel:

Aus: 

+-------+---------------------------+---------------------------+
|  ID   |        Question #1        |        Question #2        |
+-------+---------------------------+---------------------------+
| 11111 | Was it notated correctly? | Was it completed on time? |
+-------+---------------------------+---------------------------+

Zu:

+-------+-------------------------------------+
|  ID   | Total Questions                     |
+-------+-------------------------------------+
| 11111 | Was it notated correctly?           |
| 11111 | Was it completed on time?           |
+-------+-------------------------------------+
  • Das ist verwirrend. Sie sagen, dass Access-Tabelle in den Titel, aber dann nur tagged 'excel', 'loops' und 'excel-vba'. So sind diese Tabellen in Access oder nicht? Wenn ja, könnten Sie führen eine Abfrage (keine Schleifen erforderlich) auf der ursprünglichen Tabelle ausgeben, wie Sie wollen.
  • Sorry, aber ich bin nicht zu sehen, einen Verweis auf excel überall. Ich beziehe mich auf eine Access-Tabelle wenn.
InformationsquelleAutor nbwest76 | 2014-06-23
  1. 1

    Eine einfache Lösung mit DAO

    sub SomeProcedure()
    Dim db as DAO.Database, recIn as DAO.Recordset, recOut as DAO.Recordset

    Set db = currentdb()
    Set recIn = db.openRecordset("yourQuestionsInputTable", dbOpenDynaset, dbReadOnly)
    Set recOut = db.openRecordset("yourQuestionsOutputTable", dbOpenDynaset, dbEditAdd)

    with recIn
        .moveFirst
        do
            for i = 1 to .Fields.count
                if left(.Fields(i).Name, 8) = "Question" then
                    recOut.addNew
                        recOut.Fields("Id") = .fields("Id")
                        recOut.Fields("Total Questions") = .Fields(i)
                    recOut.update
                end if
            next i
            .moveNext
        loop until .EOF
    end with
    recIn.close
    recOut.close
    db.close
end sub

    Die Erklärung:

    Was ich Tue, ist:

    1. Lesen jeder Datensatz aus der Tabelle
    2. Für jede Spalte wich-name beginnt mit "Question" erstellen Sie einen neuen Datensatz in der Ausgabe-Tabelle, mit der Id von der input-Tabelle und der Wert der ausgewählten Spalte.

    Dies ist nur ein Entwurf. Sie müssen den code optimieren, um Ihren Bedarf zu passen.

    Hoffe, das hilft.

    Alternativen

    Nach zu denken, ein wenig, vielleicht habe ich eine alternative zu dem problem, das Sie erwähnen in Ihren Kommentaren.

    Ich denke, Sie können ändern Sie die Schleife wie diese:

    ' You'll need a variable of type Field
Dim f as DAO.Field ' Check if this is right
' Some code
with recIn
    .moveFirst
    do
        for f in .Fields
            if left(f.Name, 8) = "Question" then
                recOut.addNew
                    recOut.Fields("Id") = .Fields("Id").Value
                    recOut.Fields("Total Questions") = .Fields(f.Name).Value
                recOut.update
            end if
        next f
        .moveNext
    loop until .EOF
end with
' More code

    Statt Durchlaufen auf der Fields Sammlung mit einem index, wird diese Iteration mit jedem Field Mitglied in ihm. Das sollte verhindern, dass die "Item not found in collection" - Ausgabe.

    Warnung: Nicht getestet

    • Dank Barranka! dies scheint zu erklären, was ich versuche zu erreichen, habe ich angepasst, der code aber ich hab jetzt Probleme bekommen es, um eine Schleife um die nächste ID-Nummer. Es läuft die erste ID-Nummer, perfekt für alle die Fragen aber nach, dass ich ein "Item not Found in Collection" - Fehler. Ich habe versucht ein paar verschiedene Dinge, basierend auf meinen Kenntnissen von VBA-ohne Erfolg. Irgendwelche Empfehlungen?
    • Sorry! Ich vergaß hinzuzufügen, die .next Zeile im code (springen zum nächsten Datensatz in recIn). Als für das "Item not found in collection", sollten Sie den code Debuggen und zu sehen, wo es passiert ist (führen Sie Schritt für Schritt durch und prüfen, wo die Ausführung löst einen Fehler aus). Wenn in der Tabelle hinter recIn hat eine Feste Anzahl von Spalten, ändern Sie die Schleife, um zu prüfen, nur die Spalten, die Sie brauchen.
    • Ich die Fehlermeldung "Element nicht gefunden in dieser Auflistung" Fehlermeldung, wenn es erreicht die Letzte Frage (Frage #10) - Spalte. Der code ist eigentlich das hinzufügen der ID-Nummer 10 mal (1 mal pro Frage) ich bin ok mit, dass, aber sobald es eine Schleife durch die Spalten, für die erste ID-Nummer ist es fehl zu gehen, um die nächste ID-Nummer und das gleiche tun. hinzufügen .Weiter gab es eine "Methode oder Datenelement nicht gefunden" Fehler also Tat ich es .MoveNext und erhielt im gleichen Element Fehler.
    • Sorry (habe ich nicht programmiert in VBA eine ganze Weile); die richtige Methode ist .moveNext. Als für das "Item not found in collection", kann es ein Problem mit dem index des Feldes (der Wert von i). Ich weiß nicht Recht erinnern, wenn der index beginnt bei null oder eins. Verwenden debug.print recIn.fields(i).Name zu zeigen, in der die sofortige Fenster, welches Feld gelesen wird. Übrigens..., Sie verstehen, was dieses Ding tut, richtig? (check Die Zehn Gebote von Access 😉 )
    • lol ja, ich verstehe, was es tut. Ich habe einen ähnlichen code, den ich für etwas anderes gebrauchen. Ich denke gerade, dass der code, den Sie zur Verfügung gestellt sah perfekt für mich, nicht sicher, warum es ausfällt, sobald es eine Schleife zurück zu der Linie, Wenn einmal die Spalte Ende. Ich Schätze Ihre Hilfe! Sie definitiv nehmen Sie mich in die richtige Richtung. Ich werde weiter versuchen, verschiedene Dinge, um es zu arbeiten.
    InformationsquelleAutor Barranka
  2. 0

    Versuchen ein paar Anfragen wie diese:

    SELECT ID, Question1 AS TotalQuestions
INTO NewTable
FROM OriginalTable;

SELECT ID, Question2 AS TotalQuestions
INTO NewTable
FROM OriginalTable;
    InformationsquelleAutor neizan
Schreibe einen Kommentar