Accessテーブルにデータを追加する方法と重複を防ぐ手順

概要

この記事でわかること

• 1件追加と一括追加を使い分ける
• 追加クエリを選択結果の確認から作る
• INSERT INTOとDAOの基本を理解する
• キー違反と再実行による重複を防ぐ

この記事の主な内容

1. データ追加の方法を件数と運用で選ぶ
2. フォームやテーブルから1件追加する
3. 追加クエリで複数件を登録する
4. INSERT INTOとDAOで追加を自動化する
5. 重複登録と再実行の事故を防ぐ
6. 追加できない原因と対処方法
7. 実行前後の照合とまとめ
8. よくある質問

想定読了時間：約12分～14分

データ追加の方法を件数と運用で選ぶ

Accessへ新しいデータを入れるときは、1件ずつ入力するのか、別の表から複数件を取り込むのかで方法を選びます。利用者が日常的に登録するなら入力フォーム、条件に一致した複数行を既存テーブルへ入れるなら追加クエリが基本です。
［参考1］
［参考2］

追加クエリとは、選んだデータを既存テーブルの新しいレコードとして登録するクエリです。レコードはテーブルの1行を意味します。既存行の内容を変える更新クエリや、新しいテーブルを作るテーブル作成クエリとは役割が異なります。

VBAで追加するためにADOだけが必須というわけではありません。AccessではDAOのQueryDefやDatabaseを使って追加クエリを実行する方法もあります。データの抽出や一括登録をSQLへ任せ、VBAは実行制御や検証を担当すると、処理の役割を整理しやすくなります。

［参考4］
［参考5］

追加と更新を取り違えない

顧客の住所を変更したい場合、顧客テーブルへ同じ顧客をもう1件追加するのではなく、対象の既存行を更新します。追加は「新しい業務上の対象が増えた」場合の処理です。新規か既存かの判定に使うキーを決めておかないと、同じ相手を繰り返し登録する原因になります。

オートナンバー型の主キーが付いていれば、同じ商品コードでも別IDで登録される設計があります。主キーが重複しないことと、業務データが重複していないことは別です。商品コードなど、業務上重複を許さない項目にも適切な一意制約を設けます。

フォームやテーブルから1件追加する

フォームまたはテーブルのデータシートを開き、新規レコードへ移動して値を入力します。画面下部の新規レコードボタンや「ホーム」の「新規」を利用できます。行選択部分のアスタリスクは新しいレコードの目印になります。
［参考1］

1. 入力対象のテーブルまたはフォームを開きます。
2. 新規レコードへ移動します。
3. 必須項目を入力し、Tabキーで次の項目へ進みます。
4. Shift＋Enterで保存するか、別レコードへ移動して保存します。
5. 追加したキーを使って検索し、内容を確認します。

フォームやテーブルでは、別レコードへの移動や画面を閉じる操作でも保存が行われます。「保存ボタンを押していないので登録されていない」と決め付けないでください。利用者向けの画面では、どの操作で登録されるかを明示し、取消方法も合わせて説明します。
［参考1］

新規行へ移動できない場合

フォームの「追加の許可」、レコードソースの更新可能性、保存先への権限を確認します。集計クエリなど更新できないデータ元を使っている場合、画面に項目を表示できても新規登録はできません。リンクテーブルなら接続先の権限やキーの識別も関係します。

なお、フォームの「データ入力」を「はい」にすると、新規入力用として既存行を表示しない動作になります。既存データが消えたわけではありません。入力専用にしたいのか、過去の登録内容も編集したいのかに合わせて設定を選びます。

追加クエリで複数件を登録する

追加クエリは、先に選択クエリで対象を確認してから作ります。追加は通常の「元に戻す」で取り消せないため、最初から本番表へ実行して試さないことが重要です。分割データベースでは、画面ファイルだけでなく実データ側のバックアップを取ります。
［参考2］

練習するテーブルを用意する

ここでは商品取込用テーブルW_商品取込から、商品マスターM_商品へ登録する説明用の例を使います。既存システムで使用する場合は、実際の列名、型、必須項目、一意キーへ合わせてください。

CSVから取り込んだコードが数値として解釈されると、先頭ゼロが失われることがあります。取込後に型だけをテキストへ変えても失った情報が戻るとは限りません。コードの型を決め、元ファイルと取込結果を照合してから追加へ進みます。

デザインビューで作成する手順

1. 「作成」からクエリデザインを開き、W_商品取込を追加します。
2. 商品コードと商品名をグリッドへ配置し、対象条件を設定します。
3. データシートビューで行数、空欄、重複、値の内容を確認します。
4. デザインビューへ戻り、クエリの種類を「追加」に変更します。
5. 追加先をM_商品にし、「レコードの追加」行で列を対応付けます。
6. バックアップと件数を確認して実行し、登録結果を照合します。

実行前のデータシート表示は対象確認であり、追加そのものではありません。逆に、追加クエリを実行すれば新しい行が登録されます。確認のために何度も実行することを避け、クエリ名にも「Q_商品追加」など処理内容が分かる名前を付けます。

追加先の列は明示する

商品IDを追加先で自動採番する場合は、通常、追加する列から商品IDを除きます。別システムのIDをそのまま保持する移行では考え方が変わるため、重複や参照関係を別途検証します。自動採番の番号が連続することは前提にしません。
［参考3］

列名が同じでも型や桁数が同じとは限りません。また、追加対象に含めなかった必須項目へ既定値がなく、Nullも許されなければエラーになります。「一部の列だけを追加できる」は「残りの列の条件を無視できる」という意味ではありません。

INSERT INTOとDAOで追加を自動化する

SQLで1件追加するにはINSERT INTOとVALUESを使います。複数件を別表から追加する場合はINSERT INTOとSELECTを組み合わせます。列の並びで値が対応するため、追加先の列名を省略せずに書くと確認しやすくなります。
［参考3］

1件追加と複数件追加のSQL

INSERT INTO [M_商品] ([商品コード], [商品名])
VALUES (‘P001’, ‘コピー用紙 A4’);

この例は1件の追加です。既にP001がある状態で商品コードに一意制約があれば、同じ内容を再実行しても追加できません。次の複数件追加例も、重複や未入力を検査済みの練習用データに対して使います。

INSERT INTO [M_商品] ([商品コード], [商品名])
SELECT [商品コード], [商品名]
FROM [W_商品取込];

画面の入力値はパラメーターで渡す

VBAで利用者の入力をSQL文字列へ直接連結すると、アポストロフィを含む商品名や日付の表現で問題が起きやすくなります。値はパラメーターで渡し、SQLの構造と入力値を分ける方法が扱いやすくなります。以下はDAOを使う説明用の関数です。
［参考4］
［参考5］

Public Function AddProduct(ByVal code As String, _
                           ByVal productName As String) As Long
    On Error GoTo ErrHandler
    Dim db As DAO.Database
    Dim qd As DAO.QueryDef
    Dim errNo As Long
    Dim errText As String
    If Len(Trim$(code)) = 0 Or Len(code) > 20 Then
        Err.Raise vbObjectError + 1001, , “商品コードを確認してください。”
    End If
    If Len(Trim$(productName)) = 0 Or Len(productName) > 100 Then
        Err.Raise vbObjectError + 1002, , “商品名を確認してください。”
    End If
    Set db = CurrentDb
    Set qd = db.CreateQueryDef(“”, _
        “PARAMETERS pCode Text(20), pName Text(100); ” & _
        “INSERT INTO [M_商品] ([商品コード], [商品名]) ” & _
        “VALUES ([pCode], [pName]);”)
    qd.Parameters(“pCode”) = code
    qd.Parameters(“pName”) = productName
    qd.Execute dbFailOnError
    AddProduct = qd.RecordsAffected
    qd.Close
    Set qd = Nothing
    Set db = Nothing
    Exit Function
ErrHandler:
    errNo = Err.Number
    errText = Err.Description
    On Error Resume Next
    If Not qd Is Nothing Then qd.Close
    Set qd = Nothing
    Set db = Nothing
    On Error GoTo 0
    Err.Raise errNo, “AddProduct”, errText
End Function

標準モジュールへ置き、DAOの型が認識される参照設定を確認して使います。戻り値は追加された件数です。呼び出すボタン側でもエラーを受け取り、成功した場合だけ完了を表示します。例外を無視して「登録しました」と表示する処理にはしないでください。

dbFailOnErrorはエラー時の失敗を扱うためのオプションですが、複数の独立した処理全体を自動的に1つへまとめるものではありません。ヘッダーと明細などをまとめて確定する場合は、対象DBのトランザクション対応を確認し、開始・確定・取消の単位を設計します。本コードは単一の追加文の例です。

重複登録と再実行の事故を防ぐ

重複対策は、取込元の重複、追加済みデータとの重複、同時実行の3つを分けます。追加先にないコードだけ選ぶ条件を付けても、取込ファイル自体に同じコードが2行あれば、それだけで完全な対策にはなりません。

追加済みのキーを除くSQL例

INSERT INTO [M_商品] ([商品コード], [商品名])
SELECT S.[商品コード], S.[商品名]
FROM [W_商品取込] AS S
WHERE S.[商品コード] Is Not Null
  AND NOT EXISTS
      (SELECT * FROM [M_商品] AS T
       WHERE T.[商品コード] = S.[商品コード]);

この例は、既に登録された商品コードを候補から除外します。追加先の商品コードには重複なしのインデックスを設定し、取込元についても事前に同じコードの件数を確認します。Nullを除く条件だけでは空文字や空白のみの文字列は除けないため、取込検査で別に確認してください。

商品名が違う同一コードの2行がある場合、どちらかを自動的に選ぶのではなく、元データの確認対象へ戻します。SELECT DISTINCTだけでは、コードが同じで名称が違う行を一つへ確定できません。同時実行時の重複も、抽出条件に加えて一意制約で防ぎます。

失敗したときにすぐ再実行しない

エラー後は、どこまで登録されたかを先に確認します。画面の警告、DAOの単一実行、複数処理の組み合わせでは結果の扱いが異なります。取込回を識別する番号や登録キーの記録があれば、完了した行と未登録の行を分けて判断できます。

データ追加と取込処理の改善でお困りの方へ

検証用コピーでの確認が難しい場合や、複数の画面・外部連携へ影響する場合は、Accessの教科書のお問い合わせ窓口へご相談ください。現在の構成、困っている操作、変更したい内容を整理すると、確認すべき範囲を伝えやすくなります。

追加できない原因と対処方法

追加エラーは、型変換、キー違反、必須・入力規則、ロックや権限などに分けて調べます。警告を非表示にして通すのではなく、条件を満たしていない行を特定して修正してください。主キーや参照整合性を外して無理に登録する方法は、後の不整合につながります。

エラー行の原因は複数ある場合があります。まず少量の代表データで正常系と異常系を確認し、件数を増やします。個人情報を含む取込データをそのまま他者へ渡すのではなく、原因が再現する最小限のサンプルへ置き換えると確認もしやすくなります。

実行前後の照合とまとめ

追加処理は「エラーメッセージが出なかった」だけで完了にしません。予定件数、実際の追加件数、追加されたキー、除外した件数と理由を確認します。複数人が同時登録する環境では、テーブル全体の件数差だけで今回の処理を判断しないでください。

例の数値は説明用です。業務では追加対象を識別できるキーを残し、再実行が必要な場合も同じ処理を無条件に繰り返さないようにします。1件入力はフォーム、一括追加はクエリ、自動化はVBAによる制御を組み合わせ、データの条件と確認手順を整えて運用しましょう

よくある質問

データ追加と取込処理の改善でお困りの方へ

検証用コピーでの確認が難しい場合や、複数の画面・外部連携へ影響する場合は、Accessの教科書のお問い合わせ窓口へご相談ください。現在の構成、困っている操作、変更したい内容を整理すると、確認すべき範囲を伝えやすくなります。

関連記事

Accessのテーブルとは

Accessのクエリとは

データ入力用フォームの作成

リンクテーブルの作成

参考情報

参考1 Microsoft Support｜レコードの追加と編集
https://support.microsoft.com/ja-jp/access/ways-to-add-edit-and-delete-records

参考2 Microsoft Support｜追加クエリ
https://support.microsoft.com/en-us/access/add-records-to-a-table-by-using-an-append-query

参考3 Microsoft Learn｜INSERT INTO
https://learn.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/insert-into-statement-microsoft-access-sql

参考4 Microsoft Learn｜QueryDef.Execute
https://learn.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/querydef-execute-method-dao

参考5 Microsoft Learn｜Parameters
https://learn.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/parameters-collection-dao