Hallo,
wie kann ich per VBA die enthaltenen Tabellen in der selben MDB-Datei ändern?
Hintergrund:
ich muss häufig Tabellen aus einer SQL-Datenbank in eine Access-Datenbank importieren/verknüpfen. Dabei werden aber die Tabellennamen umbenannt ! Wenn ich die Tabelle „kunden“ importieren, steht später „dbo_kunden“ !
Nun wollte ich mit VB alle Tabellen, die mit „dbo_“ anfangen umbenennen, und zwar ohne „dbo_“.
Kann mir jemand helfen?
Vielen Dank im voraus
Gruss
Akin
Hallo Akin,
diesen Codeschnipsel habe ich aus http://www.access-home.de/
und für Deine Zwecke umgebaut:
Public Function TabellenUmbenennen()
' -------------------------------------------------------
' Diese Funktion benennt alle Tabelle um und
' schneidet den vorgestellten Text **"dbo\_"** ab.
' -------------------------------------------------------
Dim tdfLoop
Dim NewName As String
For Each tdfLoop In CurrentDb().TableDefs
If Left(tdfLoop.Name, 4) = "dbo\_" Then
NewName = Mid(tdfLoop.Name, 5, 50)
DoCmd.Rename NewName, acTable, tdfLoop.Name
TabellenUmbenennen = TabellenUmbenennen + 1
End If
Next tdfLoop
End Function
Probier´s mal aus …
gruss
moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]