Changing table names from lowercase to uppercase

[supernix]

Hello,



I was searching for some way that I could change all the tables from lowercase names to uppercase. I guess I should have just done all uppercase to begin with but I try to use lower case for everything to keep from having confusion.
I am using Access 2007.
Thanks in advance. Any help would be great. I can't find anything other than an SQL reference to alter table.

[ajetrumpet]

see if this puppy works for ya:

Function TablesToUCASE()

On Error GoTo ErrorHandler

        Dim db As Database
          Set db = CurrentDb()
            Dim tbldef As TableDef

    For Each tbldef In db.TableDefs

      If Not tbldef.Name Like "msys*" Then
        If Not tbldef.Name Like "~tmp*" Then

            tbldef.Name = UCase(tbldef.Name)

        End If
      End If

    Next tbldef

RefreshDatabaseWindow

ErrorHandler:
  Exit Function

End Function