ms-access - 複数のテーブルのフィールド名を書き換える - 欠落しているフィールドをスキップする

Question

それぞれ約 150 のフィールドを持つ約 200 のテーブルを持つ Access データベースがあります。ほとんどのフィールド名を変更する必要があり、割り当てた名前にプログラムで名前を更新する VBA コードを作成しています。問題は、すべてのテーブルがまったく同じフィールドを持っているわけではないことです (一部のフィールドが特定のテーブルから欠落しています)。特定のテーブルに存在しない場合は、特定のフィールドの変更をスキップして、コードに変更を書き込む方法はありますか?

私が使用している基本的なコードは、このサイトからのものです: http://windowssecrets.com/forums/showthread.php/125845-Change-Field-name-in-Table-with-VBA

そして、これが私の実際のコードです。VBA初心者なのでお手柔らかにお願いします。

Option Compare Database
Option Explicit

Public Sub changeFieldName()

Dim db As DAO.Database
Dim table As DAO.TableDef

Set db = CurrentDb
For 
Set table = db.TableDefs("table")

table.Fields("Field1").Name = "name1"
table.Fields("Field2").Name = "name2"
if(IsNull(table.Fields("FieldDoesn'tExist").Name = "name")) Then End If

Set table = Nothing
Next    

db.Close
Set db = Nothing


MsgBox "Changed"

End Sub

「Then End If」ステートメントは機能しませんが、ここで何を使用すればよいかわかりません

助けてくれてありがとう！
ポール