Accessで連番をふるプロセスで質問です。
データをあるテーブルに追加した時に、連番をふりたいと考えています。
最も簡単なのはオートナンバーフィールドを設定する方法なのですが、この場合一つ欠点があります。
それはレコードを全削除した場合でもナンバーがリセットされないという事です。
追加クエリでテーブルにデータを追加する前に必ずテーブルのレコードを全削除するのですが、
この際にオートナンバーも一緒にリセットする方法は無いでしょうか?
また、質問の題名とは変わってしまうかもしれませんが、
オートナンバーを使用せずにレコードに連番をふる方法があればご教授下さい。
No.4ベストアンサー
- 回答日時:
>最適化せず(プログラムを走らせたままで)オートナンバーをリセットする方法をもしご存知でしたらご教授頂ければ幸いです。
テーブルのレコードを削除してからコピーすると、
オートナンバーはリセットされます。
それを利用した方法です。
他にも方法はあると思いますが、これが簡単かな。
Sub AutoNumberReset()
Const TargetTable = "Table1" 'リセットしたいテーブル
Const TargetAutoID = "ID" 'テーブルのオートナンバーのフィールド名
Const TargetFields = "Data1, Data2" 'オートナンバー以外のフィールド名
Const TempTable1 = "temp1" '作業用テーブル1
Const TempTable2 = "temp2" '作業用テーブル2
'確認メッセージなし
DoCmd.SetWarnings False
'ターゲットを作業用テーブルにコピーし削除
DoCmd.CopyObject , TempTable1, acTable, TargetTable
DoCmd.CopyObject , TempTable2, acTable, TargetTable
DoCmd.DeleteObject acTable, TargetTable
'作業用テーブル2のレコード削除する
DoCmd.RunSQL "delete * from " & TempTable2
'作業用テーブル2をターゲットにコピー(この時点でリセットされる)
DoCmd.CopyObject , TargetTable, acTable, TempTable2
'作業用テーブル1からレコードの内容をターゲットに戻す(オートナンバー以外のデータ)
DoCmd.RunSQL "insert into " & TargetTable & " select " & TargetFields & " from " & TempTable1 & " order by " & TargetAutoID
'作業用テーブルの削除
DoCmd.DeleteObject acTable, TempTable1
DoCmd.DeleteObject acTable, TempTable2
'確認メッセージあり
DoCmd.SetWarnings True
End Sub
ご返答いただきありがとうございます。
回答を読んでいて、「コピーする」という部分で思いつきました。
どうせならテーブル内のレコードでなくテーブル全体を削除して、マクロのオブジェクトコピーから基となるテーブルを毎回同じ名前でコピーすれば良いのではないか、と。
思ったとおり毎回オートナンバーが1から反映されるようになりました。
No.3
- 回答日時:
>オートナンバーを使用せずにレコードに連番をふる方法があればご教授下さい。
リセットの方法については回答出ているので、こちらの質問に答えます。
これには何らかの並べ替えに使用できるフィールドが必要です。
(重複は不可)
すでにオートナンバーのフィールドがあるならこれを利用します。
(何番から始まってもOK、番号が抜けててもOK)
仮にこのフィールドをF1とします。
テーブル名をTable1と仮定します。
----以下手順----
新規のクエリを作り、テーブルを追加します。
クエリのフィールドに下記を記述
連番:DCount("F1","Table1","F1 <=" & [Table1].[F1])
残りのフィールドは適当に。
----以上手順----
これで1から始まる連番が追加できます。
ご返答いただきありがとうございます。
なるほど、クエリで簡単に出来るのですね!
これは大変参考になりました。ありがとうございました。
No.2
- 回答日時:
Bronco7さんの言うとおり、
最適化するとオートナンバーはリセットされます。
もし100番までオートナンバーをとっていて
101~150のデータを削除したあと最適化すれば
また101からの入力が可能です。
最適化は
ツール - データベースユーティリティ - 最適化/修復
から行うことができます。
また、ツール/オプション/全般タブで
「閉じるときに最適化する」にチェックをいれておけば
データベースを閉じるたびに最適化することも可能です。
こうすることで、データベースの肥大化を防ぐことが可能です。
この回答への補足
ご返答頂きありがとう御座います。
No.1の補足にも記述したのですが、最適化をせずに、あるプログラムの中でオートナンバーをリセットする方法を探しております。
最適化せず(プログラムを走らせたままで)オートナンバーをリセットする方法をもしご存知でしたら引き続きご教授頂ければ幸いです。
No.1
- 回答日時:
オートナンバーを全削除したのなら
データベースの最適化/修復を実行すれば
リセットされますよ。
この回答への補足
ご返答頂きありがとう御座います。
たしかに最適化するとリセットされるんですよね。
ですが最適化の場合には実際は一旦データベースが終了し再起動している状態なので、起動時に走るプログラムが動いてしまったり、最適化前に開いていたフォームが復元されないなどの問題が出てしまうのです。
最適化せず(プログラムを走らせたままで)オートナンバーをリセットする方法をもしご存知でしたらご教授頂ければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) アクセス 削除するレコードを含んだテーブルを指定してくださいのエラー対処方法 1 2022/11/24 15:01
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- ドメイン・サーバー・クラウドサービス 独自ドメインでのNSレコード設定 1 2023/07/12 18:36
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
-
4
アクセスのフィールド表示を2段にする方法・抽出の方法
Access(アクセス)
-
5
データベースの最適化をマクロでしたい
その他(データベース)
-
6
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
7
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
8
VBA内でSQL(UPDATEをループ処理)したいのですが
Access(アクセス)
-
9
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
12
オートナンバー型を1から始める方法はありますか?
その他(Microsoft Office)
-
13
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
14
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
15
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
16
入力した値をコンボボックスにすぐに反映させる方法
Excel(エクセル)
-
17
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
18
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
19
エクセルからアクセスにインポートする際のエラーについて
Access(アクセス)
-
20
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブルの値をテキス...
-
【Access】フォームで自動計算...
-
Accessのフィールド数が255しか...
-
accessで重複を防ぎたい
-
アクセス エラーを数値「0」に...
-
ACCESSでの改行コード
-
ACCESSでテーブルのチェックを...
-
Access:リンクテーブルマネー...
-
Accessで、固定アルファベット+...
-
ACCESS検索★ある文字を複数のフ...
-
INSERT INTO ステートメントに...
-
SQLServer2005のSQL文での別名...
-
ACCESSで400以上のフィールドが...
-
acsessのSQLでフィールド名と説...
-
アクセスで複数行の一括入力す...
-
accessのレポートで元になるテ...
-
Access 昇順・降順で並び替え...
-
固有レコード識別子の選択とは??
-
ファイルメーカーでCountifの様...
-
不一致クエリでnullまで抽出さ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブルの値をテキス...
-
Accessのフィールド数が255しか...
-
ACCESSで400以上のフィールドが...
-
INSERT INTO ステートメントに...
-
【Access】フォームで自動計算...
-
IT用語について質問です。 以前...
-
アクセス エラーを数値「0」に...
-
SQLServer2005のSQL文での別名...
-
ACCESSでの改行コード
-
accessで重複を防ぎたい
-
ExcelのデータをコピーでACCESS...
-
accessのレポートで元になるテ...
-
ACCESSで和暦を西暦に・・・
-
Accessで、固定アルファベット+...
-
アクセス VBAで列の入れ替...
-
アクセス メモ型 255文字...
-
ACCESSでテーブルのフィールド...
-
Access 昇順・降順で並び替え...
-
ACCESS検索★ある文字を複数のフ...
-
アクセスでオートナンバーをリ...
おすすめ情報