Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

802 / 9994

←次へ　｜　前へ→


	【12501】テーブルにフィールドを追加する（DAO）

巻 - 14/4/17(木) 9:02 -


	引用なし

	パスワード

こんにちは、単純なことかもしれませんが、詰まっているのでお助けください
表題の通り、既存のテーブルにフィールドを追加したいのですが、サッパリ動きません。
何処がおかしいのかご指摘していただきたくよろしくお願いします。

Private Sub テスト_Click()
Dim db As Database
Dim fld As DAO.Field
Dim tdf As DAO.TableDef
　　
　　　Set db = CurrentDb
　　　Set tdf = db.TableDefs("テーブルA")　←既存のテーブルです。
　　　Set fld = tdf.CreateField(Name:="オートナンバー", Type:=dbLong)
　　　fld.Attributes = dbAutoIncrField
　　
　　　db.Close
　　　Set db = Nothing
　　　Set tdf = Nothing
　　　Set fld = Nothing

End Sub

※エラーメッセージがでるでもなく、普通になにもされないでプログラムが終わります。
DAOは使える環境です。

よろしくお願いします

172 hits

▼

【12501】テーブルにフィールドを追加する（DAO） 巻 14/4/17(木) 9:02