Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
216 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12501】テーブルにフィールドを追加する（DAO） 巻 14/4/17(木) 9:02 質問[未読]
【12506】Re:テーブルにフィールドを追加する（DAO） pirorin 14/4/17(木) 23:08 回答[未読]
【12514】Re:テーブルにフィールドを追加する（DAO） 巻 14/4/22(火) 10:11 お礼[未読]
【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は使える環境です。

よろしくお願いします
【12506】Re:テーブルにフィールドを追加する（DA...
回答  pirorin  - 14/4/17(木) 23:08 -
引用なし
パスワード
   //detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1251808802

直リンクでないのでうまくたどってください。
【12514】Re:テーブルにフィールドを追加する（DA...
お礼  巻  - 14/4/22(火) 10:11 -
引用なし
パスワード
   返事遅れて申し訳ございません

何とかできました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
216 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078190
(SS)C-BOARD v3.8 is Free