rename Ms Access Tables / Ms Access Tabellen umbennen

'You have to run th code until all tables are renamd - some changes are not comitted - start again until count=0
'Nicht alle Umbenennungen werden übernommen - solang neustarten, bis alle unbenannt wurden (unbenannt=0)


Function RenTab()

   
    Dim tablename, praefix, newname As String
    praefix = "T_PDB_"
    Dim anz As Integer: anz = 0
    For z = 0 To CurrentDb.TableDefs.Count - 1
         tablename = CurrentDb.TableDefs(z).Name
         Debug.Print tablename;
         If (Left(tablename, Len(praefix)) = praefix) Then
       
         Else
            If (Left(tablename, 4) <> "MSys") Then
                newname = praefix & tablename
                Debug.Print "  ->" & newname;
                anz = anz + 1
                CurrentDb.TableDefs(z).Name = newname
            End If
         End If
         Debug.Print    'carige return
    Next z
    Debug.Print
    Debug.Print "umbenannt:" & anz
End Function


Function UnRenTab()

    Dim tablename, praefix, newname As String
    Dim anz As Integer: anz = 0
    praefix = "T_PDB_"
    For z = 0 To CurrentDb.TableDefs.Count - 1
         tablename = CurrentDb.TableDefs(z).Name
         Debug.Print tablename;
         If (Left(tablename, Len(praefix)) = praefix) Then
            newname = Mid(tablename, Len(praefix) + 1)
            Debug.Print "  ->" & newname;
            anz = anz + 1
            CurrentDb.TableDefs(z).Name = newname
         End If
         Debug.Print    'carige return
    Next z
    Debug.Print
    Debug.Print "umbenannt:" & anz
End Function