Uppercase all table field names

D

Dennis

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?
 
O

Ofer

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
 
D

Dennis

Thanks! We'll give it a shot.

Ofer said:
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
Click to expand...
 
À

À

Ofer said:
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
Click to expand...
action?
 
Top