Top-Themen

Aktuelle Themen (A bis Z)

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, 5753 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
Datenbanken
Werte aus einer Tabelle ersetzen Werte aus einer anderen Tabelle
Frage von neotm1Datenbanken2 Kommentare

Hallo, ich versuche mit MSSQL eine Abfrage hinzubekommen, in der Werte Aus Tabelle1 Spalte2 in eine andere Tabelle schreibt, ...

Datenbanken
Eine auf sich selbst referenzierte Tabelle
Frage von Thor01Datenbanken7 Kommentare

Hallo, ist es üblich auf sich selbst referenzierte Tabellen zu verwenden? Frage weil ich das jetzt das erste mal ...

Microsoft Office
Excel Tabelle
Frage von samsamsamMicrosoft Office17 Kommentare

Hallo Ich habe ein Problem mit einer Tabelle In der ersten Tabebelle hab ich Namen aufgelistet und 1 Zelle ...

Microsoft Office
Exce Tabelle
gelöst Frage von djasupportMicrosoft Office1 Kommentar

Hallo Ihr lieben, Ich möchte eine Excel Tabelle erstellen der meine Monatseinkommen zusammenrechnet. Und zwar möchte ich täglich meine ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing7 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...