【入門編】【実務】テーブルの全フィールドを走査して空文字をNullに置換するクリーンアップツール – Access VBA解析バイブル

こんにちは！Access VBAの世界へようこそ。
システム開発の現場でデータベースを扱っていると、必ずと言っていいほど直面するのが「データの汚れ」という問題です。

特に厄介なのが、画面の入力フォームなどで「何も入力せずにエンターキーを押した」ときに発生する長さ0の文字列（いわゆる「空文字」：`””`）です。データベースの設計上、未入力値は「`Null`（値が存在しない）」として扱いたいのに、ここになぜか空文字が入り込んでしまう……。これが原因で、後々の集計クエリや外部連携のプログラムで思わぬバグを引き起こすことがよくあります。

今回は、Accessのテーブル構造（メタデータ）をコードから自在に操るTableDef（テーブル定義）の技術を使い、テーブル内の全フィールドを総ナメして、空文字を華麗に`Null`へと浄化する「実務でそのまま使えるクリーンアップツール」を作ってみましょう。

ここをクリアすれば、単なるマクロの記録を超えた「真のデータベース操作」の基本がバッチリ身につきますよ。一緒にマスターしていきましょう！

—

1. なぜ「空文字」と「Null」を区別しなければならないのか？

データベース初心者の方が最初にハマる大きな罠が、この「空文字 (`””`)」と「Null (`Null`)」の違いです。

• Null：「データが存在しない（未定義）」という状態。
• 空文字 (`””`)：「文字数が0文字の文字列というデータが、そこに存在する」という状態。

人間から見ると「どちらも未入力」に見えますが、Access（および背後にあるSQL ServerやJetエンジン）にとっては全く別物です。空文字が混入していると、以下のような実務上のトラブルが発生します。

1. 集計のズレ：`Count` 関数や `Len` 関数の結果が狂う。
2. 一意性制約（インデックス）のエラー：Nullは複数あっても重複とみなされませんが、空文字は「値」なので、重複エラーになることがある。
3. 外部システム連携の失敗：APIやExcel、SQL Serverへデータを送るときに型不一致を起こす。

だからこそ、定期的にデータをクリーンアップする仕組みが必要なのです。

—

2. テーブル定義（TableDef）を操るアーキテクチャの思考法

「テーブルの全フィールドをチェックする」と言われると、全てのレコードをループして、さらに全てのフィールドを一つずつ確認する……という泥臭い方法を想像しがちです。しかし、それではデータ量が増えたときに膨大な時間がかかります。

ここでプロのエンジニアが使うアプローチが「SQLの威力」と「テーブル定義（TableDef）」の融合です。

• どのフィールドが対象か？：テーブルの構造（TableDef）を見て、テキスト型やメモ型といった「文字列を格納できるフィールド」だけをピンポイントで特定する。
• どうやって書き換えるか？：一件ずつVBAで書き換えるのではなく、SQLの `UPDATE` 文を動的に組み立てて、データベースエンジンに一気に処理させる。

このアプローチを取ることで、数万件のレコードがあるテーブルでも、一瞬でクリーンアップを完了させることができます。

—

3. 実装コード：空文字クリーンアップ・メインエンジン

それでは、実際にAccessの標準モジュールに貼り付けて実行できるコードを見ていきましょう。
今回は、指定したテーブル名を渡すだけで、その中のテキスト系フィールドの空文字を全て `Null` に置換するプロシージャを作成しました。

Option Compare Database
Option Explicit

‘ =========================================================================
‘ 処理名 : CleanUpEmptyStrings
‘ 概要 : 指定したテーブルの全テキスト型フィールドを走査し、
‘ 空文字(“”)をNullに置換するクリーンアップツール
‘ 引数 : targetTableName – 対象のテーブル名 (String)
‘ =========================================================================
Public Sub CleanUpEmptyStrings(ByVal targetTableName As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim sql As String
Dim updateCount As Long

‘ エラーハンドリングの準備
On Error GoTo ErrorHandler

‘ 現在のデータベースへの参照を取得
Set db = CurrentDb()

‘ テーブル定義(TableDef)を取得
Set tdf = db.TableDefs(targetTableName)

‘ トランザクションを開始してデータの安全性を担保
db.BeginTrans
updateCount = 0

‘ テーブル内の全フィールドを走査
For Each fld in tdf.Fields

‘ 【重要】フィールドのデータ型が「テキスト型(dbText)」または「メモ型(dbMemo)」の場合のみ処理する
‘ ※数値型や日付型に空文字を代入しようとすると型変換エラーになるため、ここでフィルタリングします
If fld.Type = dbText Or fld.Type = dbMemo Then

‘ 動的SQLの構築
‘ 該当フィールドが空文字(“”)であるものを、SQLのNullに置き換える
‘ ※フィールド名に予約語やスペースが含まれても良いように角括弧 [ ] で囲むプロの技
sql = “UPDATE [” & targetTableName & “] ” & _
“SET [” & fld.Name & “] = Null ” & _
“WHERE [” & fld.Name & “] = “”””;”

‘ SQLを実行
db.Execute sql, dbFailOnError

‘ 影響を受けたレコード数を加算（Debug.Printでイミディエイトウィンドウに出力）
If db.RecordsAffected > 0 Then
Debug.Print “フィールド [” & fld.Name & “] : ” & db.RecordsAffected & ” 件の空文字をNullに置換しました。”
updateCount = updateCount + db.RecordsAffected
End If

End If
Next fld

‘ トランザクションをコミット（確定）
db.CommitTrans

‘ 完了メッセージ
MsgBox “クリーンアップが完了しました！” & vbCrLf & _
“合計 ” & updateCount & ” 箇所のデータを修正しました。”, vbInformation, “処理成功”

CleanUpExit:
‘ オブジェクトの解放（メモリリーク防止の鉄則）
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
‘ エラーが発生した場合は変更をロールバック（なかったことにする）
db.Rollback
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “予期せぬエラー”
Resume CleanUpExit
End Sub

‘ =========================================================================
‘ 実行用のラッパープロシージャ
‘ =========================================================================
Public Sub RunCleanupSample()
‘ ここにクリーンアップしたい実際のテーブル名を入れて実行してください
Dim target As String
target = “M_顧客マスタ” ‘ ← 実際のテーブル名に変更してください

Call CleanUpEmptyStrings(target)
End Sub

—

4. コードの深掘り解説：ここがプロのポイント

初心者から一歩抜け出すために、このコードに散りばめられた「3つの重要テクニック」を解説します。

① `fld.Type` による型チェックの厳密性

VBAでテーブル構造を触るとき、最もやりがちなミスが「すべてのフィールドに対して同じ処理をしようとして型エラーになる」というものです。
数値型（`Long`型など）のフィールドに対して `SET フィールド = Null` は通りますが、もし何らかの拍子に条件が狂うと予期せぬエラーを生みます。コード内で `fld.Type = dbText Or fld.Type = dbMemo` と絞り込んでいるのは、「文字列を格納できる器だけに優しく、かつ確実にアプローチする」ためのプロの防衛策です。

② SQLの角括弧 `[ ]` によるエスケープ

SQL文をVBA内で組み立てるとき、フィールド名やテーブル名にスペースや日本語（例：「顧客 名」や「住所」など）が含まれていると、SQLの構文解析エラーになります。
`”[” & fld.Name & “]”` のように名前を角括弧で囲むことで、どんな名前のフィールドであっても安全にSQLを生成することができます。実務では「何が入力されても絶対に壊れないコード」を書くことが求められます。

③ トランザクション（`BeginTrans` と `CommitTrans`）の導入

データベース操作において、途中でエラーが起きたときに「中途半端にデータが書き換わった状態」になるのは最悪のシナリオです。
`db.BeginTrans` で処理のセーフティネットを張り、万が一エラーが起きたら `db.Rollback` で処理を完全に巻き戻す。この構造を取り入れることで、企業の基幹システムでも安心して使える堅牢性を実現しています。

—

5. 陥りやすいエラーと対処法

このスクリプトを動かす際、初心者がつまずきやすいポイントをいくつか挙げておきます。

• エラー「インデックスが有効ではありません」 (`Error 3265`)
• 原因：指定したテーブル名（例: `”M_顧客マスタ”`）がデータベース内に存在しない、またはスペルミスがある場合に出ます。
• 対策：ナビゲーションウィンドウでテーブル名が正確か確認してください。
• 更新されない（0件になる）
• 原因：テーブル内にそもそも「空文字 (`””`)」が存在せず、すべて初めから「Null」または「何らかの文字」が入っている場合です。これはデータが綺麗である証拠なので問題ありません。

—

まとめ

今回は、TableDefを活用してテーブルの全フィールドを走査し、空文字をNullに置換する実務的なクリーンアップツールを作成しました。

• テーブル構造（メタデータ）はコードから自由に変更・参照できること
• 一括処理にはVBAのループとSQLの `UPDATE` を組み合わせると高速であること
• トランザクションを使ってデータの整合性を守ること

この3つを理解できたあなたは、もうただのAccess初心者ではありません。データベースの裏側をコントロールできる「実務派エンジニア」の第一歩を踏み出しています。

現場で「データが汚れていて困る！」という場面に出くわしたら、ぜひ今回のコードを思い出してサクッと解決してくださいね。それでは、次回の極限の知見でお会いしましょう！