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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
データベースの最適化をマクロでしたい
その他(データベース)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
6
Accessのコンボボックスの値が消える
Excel(エクセル)
-
7
アクセスVBAのMe!と[ ]
Access(アクセス)
-
8
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
9
「RunSQL」と「Execute」の違い
Access(アクセス)
-
10
アクセスでエラー このフィールドに入力した値が正しくありません
その他(データベース)
-
11
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
12
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
13
ACCESS クエリで重複データを最新の1件だけ表示
Access(アクセス)
-
14
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
15
Access でレコードセレクタが押されたときのイベントは?
その他(プログラミング・Web制作)
-
16
ACCESSで、EXCELのような、sumif関数のような関数ってありますか?
Access(アクセス)
-
17
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
18
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
19
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
20
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブルの値をテキス...
-
accessのレポートで元になるテ...
-
【Access】フォームで自動計算...
-
Accessのフィールド数が255しか...
-
通貨型で\\0の時、何も表示しな...
-
ACCESSでテーブルのフィールド...
-
ACCESS2000「定義されているフ...
-
ACCESSで400以上のフィールドが...
-
アクセス メモ型 255文字...
-
ExcelのデータをコピーでACCESS...
-
ACCESSでの改行コード
-
ACCESS 入力文字数制限
-
ファイルメーカープロVer.8のチ...
-
FileMakerの繰り返しフィールド...
-
ACCESSで和暦を西暦に・・・
-
Accessで別途保存の画像ファイ...
-
ODBC--リンクテーブル'XXXX'で...
-
Accessで連続データってできま...
-
アクセスで複数行の一括入力す...
-
アクセス エラーを数値「0」に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブルの値をテキス...
-
アクセス エラーを数値「0」に...
-
ACCESSでの改行コード
-
Accessのフィールド数が255しか...
-
accessのレポートで元になるテ...
-
Accessで、固定アルファベット+...
-
INSERT INTO ステートメントに...
-
Access 昇順・降順で並び替え...
-
ExcelのデータをコピーでACCESS...
-
SQLServer2005のSQL文での別名...
-
ACCESSで400以上のフィールドが...
-
アクセス VBAで列の入れ替...
-
IT用語について質問です。 以前...
-
【Access】フォームで自動計算...
-
accessで重複を防ぎたい
-
ACCESSでテーブルのチェックを...
-
ACCESSで和暦を西暦に・・・
-
アクセス メモ型 255文字...
-
主キーはオートナンバー型のID...
-
ACCESSでオートナンバーを任意...
おすすめ情報