So löschen Sie alle Datensätze aus mehreren Tabellen mit VBA-Schleife? Access 2010

Ich soll eine VBA-Schleife die Funktion löschen Sie alle Datensätze aus einer Tabelle mit einem Namen wie "d2s_*".

Habe ich gefunden, der code zum löschen aller Datensätze:

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM NameOfTable"
DoCmd.SetWarnings True

Habe ich auch eine Schleife nennen Sie jede Tabelle in der Datenbank:

Dim T As TableDef
For Each T In CurrentDb.TableDefs
Debug.Print T.Name
Next T

So, was ich will zu tun ist, kombinieren Sie:

Dim T As TableDef
For Each T In CurrentDb.TableDefs
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM NameOfTable"
DoCmd.SetWarnings True
Next T

Aber so wie ich das verstehe, wird die SQL-Abfrage muss auf eine bestimmte Tabelle verweisen Namen. Gibt es eine Möglichkeit, diese relativ zu einer Tabelle starten mit dem Namen "d2s_"?

InformationsquelleAutor Trevor D | 2013-12-11

Schreibe einen Kommentar