Wie mit VBA Tabellen umbennen ?

Computer: Software & Programmierung Microsoft Access
1

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

2

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]