Uppercase all table field names

[Guest]

I must continuously uppercase all field names in all tables of a database
that we download each month. Is there an easy way to automate this action?

 

[Guest]

Hi Dennis,
This function example get a table name and change the fields name to upper
case

Function RenameFields(TableName As String) As String
Dim MyDb As DAO.Database
Dim MyRec As DAO.TableDef
Dim FldName As DAO.Field
Dim I As Integer

Set MyDb = CodeDb()
Set MyRec = MyDb.TableDefs(TableName)
For I = 0 To MyRec.Fields.Count - 1
Set FldName = MyRec.Fields(I)
FldName.Name = UCase(FldName.Name)
Next I
End Function

 

[Guest]

Thanks! We'll give it a shot.

Hi Dennis,
This function example get a table name and change the fields name to upper
case

Function RenameFields(TableName As String) As String
Dim MyDb As DAO.Database
Dim MyRec As DAO.TableDef
Dim FldName As DAO.Field
Dim I As Integer

Set MyDb = CodeDb()
Set MyRec = MyDb.TableDefs(TableName)
For I = 0 To MyRec.Fields.Count - 1
Set FldName = MyRec.Fields(I)
FldName.Name = UCase(FldName.Name)
Next I
End Function

 

[À]

Hi Dennis,
This function example get a table name and change the fields name to upper
case

Function RenameFields(TableName As String) As String
Dim MyDb As DAO.Database
Dim MyRec As DAO.TableDef
Dim FldName As DAO.Field
Dim I As Integer

Set MyDb = CodeDb()
Set MyRec = MyDb.TableDefs(TableName)
For I = 0 To MyRec.Fields.Count - 1
Set FldName = MyRec.Fields(I)
FldName.Name = UCase(FldName.Name)
Next I
End Function

action?