kolom naam veranderen in tabel naam

[bjl]

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

 

[OctaFish]

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

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.

 

[bjl]

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

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