Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Tabellen automatisiert umbenennen anhand einer Tabelle

Frage Entwicklung VB for Applications

Mitglied: ShitzOvran

ShitzOvran (Level 1) - Jetzt verbinden

09.08.2010, aktualisiert 14:59 Uhr, 5645 Aufrufe, 1 Kommentar

Ich habe eine Access 2003 Datenbank mit knapp 250 Tabellen. Diese möchte ich jetzt mittels VBA automatisiert umbenennen.

Die alten und die neuen Tabellennamen sitehen wiederum in einer Tabelle.

zB

01.
ForeignName	                      | Name 
02.
---------------------------------------------------------------------------- 
03.
_email_posteingangaktion	      | MailAktionEingang 
04.
9300 servo-positionierregler	      | 9300 Servo-Positionierregler 
05.
ablageordner	                      | AblageOrdner 
06.
adressenbesuche	                      | AdressenBesuche 
07.
aktionen	                      | Aktionen 
08.
kdb                                   | KDB Basis

es ist immer unterschiedlich.. manchmal soll einfach nur die Groß/Kleinschreibung geändert werden.. manchmal erhält die Tabelle einen ganz anderen Namen. Deshalb die "Referenztabelle" mit sozusagen "ValueOld" und "ValueNew"

Wie schaffe ich es jetzt mittels VBA dass alle tabellen in der DB umbenannt werden?
ich habe schon versucht irgendetwas ähnliches zu googeln und anzupassen.. das ging aber kläglich in die Hose
Mitglied: 76109
09.08.2010 um 17:18 Uhr
Hallo ShitzOvran !

Sofern beim Umbenennen keine Bezüge in Abfragen, Formulare... verloren gehen, sollte dieser Code das gewünsche Ergebnis bringen:
01.
Sub Test() 
02.
    Dim rs As Object, Table As Object, NewName As String, OldName As String 
03.
     
04.
    Set rs = CurrentDb.OpenRecordset("Select * From [Referenztabelle]") 
05.
     
06.
    On Error Resume Next 
07.
     
08.
    Do Until rs.EOF 
09.
        OldName = rs("ForeignName") 
10.
        NewName = rs("Name") 
11.
         
12.
        Set Table = CurrentData.AllTables(OldName) 
13.
         
14.
        If Err.Number = False Then 
15.
            DoCmd.Rename NewName, acTable, OldName 
16.
        Else 
17.
            Err.Clear 
18.
           'MsgBox "Tabelle existiert nicht: " & OldName, vbExclamation, "Fehler" 
19.
        End If 
20.
        rs.MoveNext 
21.
    Loop 
22.
End Sub
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Übertrag in eine andere Tabelle (7)

Frage von charmeur zum Thema Microsoft Office ...

Datenbanken
Eine auf sich selbst referenzierte Tabelle (7)

Frage von blade999 zum Thema Datenbanken ...

Datenbanken
gelöst MySQL - Feld aus anderer Tabelle hinzusummieren? (5)

Frage von 1410640014 zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst SSL Zertifikat für HTTPS (34)

Frage von Hendrik2586 zum Thema Verschlüsselung & Zertifikate ...

Grafikkarten & Monitore
24" oder 27" mit Full HD oder doch mehr Auflösung? (22)

Frage von brutzler zum Thema Grafikkarten & Monitore ...

Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...