Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1127 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8668】テーブル作成時にオートナンバー TB1 06/10/12(木) 15:49 質問[未読]
【8670】Re:テーブル作成時にオートナンバー 小僧 06/10/12(木) 17:54 回答[未読]
【8671】Re:テーブル作成時にオートナンバー TB1 06/10/13(金) 10:17 お礼[未読]
【8668】テーブル作成時にオートナンバー
質問  TB1  - 06/10/12(木) 15:49 -
引用なし
パスワード
   宜しくお願いします。
現在、A、B、2つのテーブルからテーブル作成クエリで1つのテーブルを作る作業をしています。その際、フォームでオートナンバーが必要なのでABともオートナンバーの項を作るのですが、クエリで統合されるとテーブルにはオートナンバーが反映されません。出来上がったテーブルにオートナンバーを自動的に作ることはできますか？
【8670】Re:テーブル作成時にオートナンバー
回答  小僧  - 06/10/12(木) 17:54 -
引用なし
パスワード
   ▼TB1 さん：
こんにちは。

> 出来上がったテーブルにオートナンバーを自動的に作ることはできますか？

オートナンバーは何故必要なのでしょうか。
ただ単に Unique なフィールドを作成されたいのであれば
テーブル作成クエリを実行した後に

ALTER TABLE テーブル名 ADD COLUMN ID AutoIncrement;

の様な SQL を実行させると
オートナンバー型のフィールドが追加されます。

さらに主キー設定にするには ID というフィールドを追加した後に

ALTER TABLE テーブル名 ADD PRIMARY KEY (ID);

の様な SQL を実行させる必要があります。

※　適宜改行しましょうね。
【8671】Re:テーブル作成時にオートナンバー
お礼  TB1  - 06/10/13(金) 10:17 -
引用なし
パスワード
   ▼小僧 さん：
いつもありがとうございます。
無事オートナンバー振れました。
この作業、抽出条件にあてはまるものをテーブルで出すコードで使うのです。
　　Do Until recT.EOF = True
　　　recW.AddNew
　　　For i = 1 To 15
　　　　recW(i) = recT(i)
　　　Next i
　　　recW.Update
　　　nLine = nLine + 1
　　　
の部分で、iがオートナンバーをカウントしてるようです。Aというテーブルから抽出してBに出す、先頭から数えて終わりまで作業する際、オートナンバーを見ていく、ということのようです。またまた改造なのでよくわかってません。

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