kolom naam veranderen in tabel naam

  • Onderwerp starter Onderwerp starter bjl
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

bjl

Gebruiker
Lid geworden
5 dec 2012
Berichten
7
Beste Mensen,

ik heb een database met +- 100 tabellen, elk van deze tabellen heeft systeemtijd, waarde.

Nu zou ik graag de kolom naam die nu 'waarde' heet in ELKE tabel willen veranderen in de NAAM van de tabel.

Dus al zou ik een tabel hebben genaamd 'helpmij' met de kolommen systeemtijd en waarde, zou ik deze met een VBA script willen veranderen in tabel genaamd 'helpmij' met de kolommen 'systeemtijd' en 'helpmij'
en dat dit dan gebeurd voor elke tabel..

Hulp wordt zeeeeeer gewaardeerd :)

GReatss B
 
Da's een leuke klus. Maar hiermee moet het lukken...

Code:
Function ChangeName()
Dim dbs As Object, obj As AccessObject
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

    Set dbs = Application.CurrentData
    Set db = CurrentDb
    For Each obj In dbs.AllTables
        Set tdf = db.TableDefs(obj.Name)
        For Each fld In tdf.Fields
            If fld.Name = "waarde" Then
                fld.Name = tdf.Name
                Exit For
            End If
        Next
    Next

    dbs.Close
    Set dbs = Nothing
    Set fld = Nothing
    Set tdf = Nothing

MsgBox "Changed all tables"
End Function
Zet de code in een nieuwe module, en voer 'm uit.
 
Da's een leuke klus. Maar hiermee moet het lukken...

Code:
Function ChangeName()
Dim dbs As Object, obj As AccessObject
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

    Set dbs = Application.CurrentData
    Set db = CurrentDb
    For Each obj In dbs.AllTables
        Set tdf = db.TableDefs(obj.Name)
        For Each fld In tdf.Fields
            If fld.Name = "waarde" Then
                fld.Name = tdf.Name
                Exit For
            End If
        Next
    Next

    dbs.Close
    Set dbs = Nothing
    Set fld = Nothing
    Set tdf = Nothing

MsgBox "Changed all tables"
End Function
Zet de code in een nieuwe module, en voer 'm uit.

Nadat ik Function vervangen had door sub, en onderaan dbs.close weggehaald had werkte de script perfect!

vind het top dat je me geholpen heb, hartstikke bedankt hiervoor!!

Greatss B
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan