Erstellen Sie eine Tabelle aus einer Abfrage in access VBA

Habe ich diese Abfrage, die ich erstellt in VBA und ich möchte, um es in einer Tabelle in VBA. Gibt es trotzdem, ich könnte dies tun? Ich sah in eine Tabellenerstellungsabfrage, aber ich bin unsicher, wie man erstellen Sie eines innerhalb von VBA. Jede Hilfe wäre sehr geschätzt werden!

Sub RevH()
Dim dte As String, clientQry As String, db As Database, clientQry1 As Variant


Set db = CurrentDb


dte = InputBox("What date was the Data Dump run?", "Please Input a date")


clientQry = "SELECT DISTINCT t.[CLIENT ID], t.[CLIENT NAME] " & _
            "FROM FN_DataDump_ALL_" & dte & " as t WHERE " & _
            " (((t.[CLIENT NAME]) Not Like  ""*Test*"" ));"

If CheckQuery("NewIDs") = "Yes" Then
DoCmd.DeleteObject acQuery, "NewIDs"
End If


clientQry1 = db.CreateQueryDef("NewIDs", clientQry)




End Sub
InformationsquelleAutor user4095610 | 2014-11-12
  1. 3

    warum wollen Sie eine neue Abfrage für, die? Einfach führen Sie die SQL-aufrufen CurrentDb.Execute-Methode.

    Und zweitens: die richtige syntax für eine Abfrage, eine neue Tabelle erstellen wäre:

    SELECT YourFields INTO YourNewTable FROM YourOldTable

    also einfach so etwas wie das:

    Dim clientQry as String

clientQry = "SELECT DISTINCT t.[CLIENT ID], t.[CLIENT NAME] " & _
            "INTO NewTableName " & _
            "FROM FN_DataDump_ALL_" & dte & " as t WHERE " & _
            " (((t.[CLIENT NAME]) Not Like  ""*Test*"" ));"

CurrentDb.Execute clientQry, dbFailOnError

    übrigens: die meisten der Zeit, es ist eine schlechte Idee, um physische Kopien einer Tabelle. Normalerweise würden Sie die Einrichtung EINER history-Tabelle mit einer zusätzlichen Spalte Datum, und speichern Sie alle Kopien in die Tabelle. Während der Laufzeit sollte es NIE erforderlich, um neue Tabellen /Spalten. Alles andere ist ein Indiz für eine schlechte Daten-Modell!

    InformationsquelleAutor cboden
Schreibe einen Kommentar