Access Study | Vol.21 デザインで使えるプログラム50

32 既存テーブルのフィールド名を変更する

既存のテーブルのフィールド名を変更するには、まずそのテーブル定義を「TableDefs」コレクションの中から”テーブル名”を指定して開きます。

そのあと、その定義の中の「Fields」コレクションから”フィールド名”を指定し、「Name」プロパティを新しいフィールド名に書き換えます。
プログラム

Sub SampleCode_32()
'既存テーブルのフィールド名を変更する

  Dim dbs As Database
  Dim tdf As TableDef

  Set dbs = CurrentDb

  'テーブル定義を開く
  Set tdf = dbs.TableDefs("mtbl顧客リスト")
  With tdf
    'フィールド名の変更
    .Fields("氏名").Name = "名前"
    .Fields("フリガナ").Name = "ふりがな"
    'テーブル定義を更新
    .Fields.Refresh
  End With

End Sub

実行例
■実行前

■実行後
| Index | Prev | Next |
Copyright © T'sWare All rights reserved