35
テーブルの”主キー”もインデックスの１つです。そこで、テーブルから主キーを削除するには、TableDefオブジェクトの「Indexes」コレクションから所定のインデックスを「Delete」メソッドで削除します。
このメソッドでは削除したい”インデックス名”を引数に指定しますが、これは”フィールド名”ではなく、あくまでもデザインビューで表示されるインデックスの画面の”インデックス名”であることに注意します。
プログラム
Sub SampleCode_35()
'既存テーブルから主キーを削除する
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb
'テーブル定義を開く
Set tdf = dbs.TableDefs("mtbl顧客リスト")
'インデックスを削除
tdf.Indexes.Delete "顧客番号"
tdf.Indexes.Refresh
End Sub
実行例
■実行前
■実行後
