Re: Mixed Case table name

From: Ethan Post <epost1_at_my-deja.com>
Date: Wed, 30 Aug 2000 18:30:05 GMT
Message-ID: <8ojjqg$vs2$1@nnrp1.deja.com>

Here is a Sub Routine you can run in Access to change all of the table names to upper case.

Public Sub FixTableNames()

    Dim db As Database
    Dim td As TableDef
    Set db = CurrentDb
    For Each td In db.TableDefs

       If Left(td.Name, 4) <> "MSys" Then
          td.Name = UCase(td.Name)
       End If

    Next
    Exit Sub
End Sub

-Ethan
http://www.freetechnicaltraining.com
http://www.gnumetrics.com (Free Web Based Oracle Performance Monitoring Tool)

Sent via Deja.com http://www.deja.com/
Before you buy. Received on Wed Aug 30 2000 - 13:30:05 CDT