PDA

Vollständige Version anzeigen : Tabelle löschen


ChrisG
06.11.2001, 13:10
Wie kann ich per Kopfdruck:
- eine BESTIMMTE Tabelle löschen
- eine BESTIMMTE Tabelle umbennen
- alle Tabellen löschen, die im Namen eine bestimmt Zeichenfolge haben ????

md
06.11.2001, 13:29
Hallo Chris!

<b>'Umbennen:</b>
DoCmd.Rename "Alter Name", acTable, _
"Neuer Name"

<b>'Bestimmte Tabelle löschen:</b>
Dim tdf As TableDef
Dim db As Database
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Name = “Name deiner Tabelle” Then
db.TableDefs.Delete tdf.Name
End If
Next tdf

Mit der instr Methode kannst Du jetzt noch das letzte Problem lösen, etwa wenn alle tabellen gelöscht werden sollen, die XY haben:

Dim tdf As TableDef
Dim db As Database
Set db = CurrentDb

For Each tdf In db.TableDefs
If InStr(tdf.name, "XY") = 1 Then
db.TableDefs.Delete tdf.Name
else
End If
Next tdf

MD