既存テーブルにフィールドを追加するには？ (ID:77514)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 DAO３．６でアクセス2000の既存のテーブル（データ格納済み）に フィールドを追加したくなりました で以下のコードを書いたのですがフィールドができてくれません Dim WSワークスペース As DAO.Workspace Dim DBデータベース As DAO.Database Dim TBLカレントテーブル As TableDef Set WSワークスペース = DBEngine.Workspaces(0) Set DBデータベース = WSワークスペース.OpenDatabase(strデータベースパス) Set TBLカレントテーブル = DBデータベース.CreateTableDef("既存テーブル名") With TBLカレントテーブル .Fields.Append .CreateField("E-mail", dbText, 50) strSQL = "ALTER TABLE KJNMAS ADD CONSTRAINT PKEY PRIMARY KEY(SEQ)" End With いままでプログラムから触ったことがなかったのでまったくわかりません 何か不足しているのでしょうか・・・それともただの構文ミスでしょうか？ Dim TBLカレントテーブル As TableDefでも Dim TBLカレントテーブル As Dao.TableDefでも結果は同じでした・・・ご回答よろしくお願いします