vba zu machen Tabelle als Feldnamen werden dynamisch

Ich habe eine Kreuztabellen-Abfrage, verwendet einen dynamischen Datums-Funktion, um das Ergebnis in die Spaltenüberschriften und damit die Feldnamen. Ex: ForecastPeriod:DateAdd("m",[Zeit],[StartDate])
Dies bedeutet, dass jedes mal, wenn ich die Kreuztabellenabfrage, könnte ich mit einem anderen Feldnamen.
Ich brauche die Ergebnisse dieser Kreuztabelle und kombinieren Sie es mit den Ergebnissen der 3 anderen ähnlichen Kreuztabellen, um eine neue Tabelle. Jetzt benutze ich eine make table-Abfrage und 3 Anfügeabfragen. Der Grund, warum ich dieser beinhaltet 4 verschiedene Kategorien von Daten werden pro material über einen Bereich von prognosezeiträumen.

Ergebnis sieht wie folgt aus:

Material der Kategorie Per1 Wert ...Per2-Wert ...... Per24 Wert

MatA Nachfrage 0 ... 10 ....... 0

MatA Nachfrage Dollar $0 ... $10 ....... $0

MatA Prognose 10 ... 20 ....... 50

MatA Prognose-Dollar $10 ... $20 ....... $50

Das problem ist, dass das make table-Abfrage erstellt, die bereits gegen die Ergebnisse der aktuellen Kreuztabelle Abfrage. Wenn ich die Kreuztabelle im nächsten Monat, die Ergebnisse haben unterschiedliche Feldnamen. So komme ich nicht weiter manuell ändern Sie die Zeiträume in der Tabelle, Abfrage-design, fallen die, die nicht mehr in die Ergebnisse und das hinzufügen der neuen.

Gibt es eine Möglichkeit, mit VBA eine neue Tabelle zu erstellen, ohne zu wissen, den Feld-Namen, bis nach der Kreuztabelle läuft?

Oder gibt es eine Möglichkeit, code die Feldnamen, oder ziehen Sie Sie aus der Kreuztabelle nach das es läuft?

Wenn ich code wie:
strSQL = "SELECT tblForecast.Material, tblForecast.Kategorie tblForecast.X " & _
"INTO tblTemp" & _
"AUS tblForecast;"

Ich weiß wirklich nicht, was tblForecast.X wird tatsächlich aufgerufen werden. Es könnte sein, 11/1/08 oder 12/1/08, etc.

Wenn ich eine variable deklarieren, um das Feld name und verwenden Sie den Datums-code zu ändern, wie ich es in die Tabelle? Würde ich haben, verwenden Sie Alter Table?

Ich bin sicher, dass dies getan werden kann, ich bekomme einfach nicht in meinen Kopf, wie es zu tun, so dass jede Hilfe wäre dankbar!! Danke!

  • Deine Frage macht nicht viel Sinn (für mich zumindest), weil Sie nicht genügend Kontext (verbessern Sie Ihre tags). Ich vermute, Sie sind schriftlich über den Zugriff auf Windows. Die Angabe, dass (und vielleicht mehr) bringen könnte, mehr Kenntnisse die Menschen...
InformationsquelleAutor | 2008-11-19
  1. 2

    VBA eine Tabelle erstellen, die spiegelung der Spalten einer Abfrage:

    Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim SourceField As DAO.Field

Set db = CurrentDb

'Create a new tabledef
Set tdf = New DAO.TableDef

'Reference existing, saved querydef
Set qdf = db.QueryDefs("Query1")

tdf.Name = "Table2"

'iterate fields in the query and create fields in the new tabledef
For Each SourceField In qdf.Fields
    Set fld = tdf.CreateField(SourceField.Name, SourceField.Type, SourceField.Size)
    tdf.Fields.Append fld
Next

'Table is created and saved when the tabledef is appended to the current db
db.TableDefs.Append tdf
    InformationsquelleAutor John Mo
  2. 1

    Ist es möglich, eigene überschriften für die Kreuztabelle, zum Beispiel:

    ColHead:"Month" & DateDiff("m",[SaleDate],Forms!frmForm!txtSomeDate)

    Dies hätte zur Folge, Spaltenüberschriften namens 'Monat' und eine offset-Anzahl von txtSomeDate.

    Ist es auch möglich mit vba bauen Sie Ihre neue Abfrage.

    InformationsquelleAutor Fionnuala
Schreibe einen Kommentar