Home > 即効テクニック > AccessVBA > データベース・データ保護 > テーブルのフィールド名を変更する（DAO）

即効テクニック
データベース・データ保護

テーブルのフィールド名を変更する（DAO）

(Access)
FieldオブジェクトのNameプロパティを使って、フィールド名を変更します。
サンプルプロシージャでは、テーブル「商品管理」の全フィールド名の後ろに「★」を付けて、フィールド名を変更しています。

Sub Sample()
    Dim db        As Database
    Dim TDef      As TableDef
    Dim myFldName As Field
    
    Set db = CurrentDb
    Set TDef = db.TableDefs!商品管理
    
    For Each myFldName In TDef.Fields
        myFldName.Name = myFldName.Name & "★"
    Next myFldName
    
End Sub

DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックします。