Rename tables and fields in Access 97

[cubi]

Hi,

Is there a quick way to rename every table, and every field in the table, to ALL CAPS in Access 97?

Thanks

 

[LittleSmudge]

WHY WOULD YOU WANT TO DO THAT?

- Anyway, each to his own.. ..

Try This


Dim tdf As TableDef
Dim db As Database
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Name Like "MSys*" Then
' Dont Change System tables
Else
For Each fld In tdf.Fields
fld.Name = FunctionConvertToUpperCase(fld.Name)
Next fld
tdf.Name = FunctionConvertToUpperCase(tdf.Name)
End If
Next tdf



'ope-that-'elps.

G LS