Access 棚卸しのやり方｜作った人がいない Access の中身を数える7項目と結果の読み方

結論:棚卸しはどんな順番で進めるか?

ファイルを複製し、版と 32bit/64bit を確かめてから、7つの項目を数えて一覧にし、最後に使っている人に印を付けてもらいます。

1. ファイルを複製する

   期間:最初の10分/成果物:作業用の写し。本番のファイルは触らない

2. 版と 32bit/64bit を確かめる

   期間:10分/成果物:Office の版、Access のファイル形式、bit 数

3. 7つの項目を数える

   期間:1〜2時間/成果物:テーブル・クエリ・フォーム・レポート・VBA の行数・Declare 文・リンクテーブルの一覧

4. 使っている人に印を付けてもらう

   期間:半日/成果物:よく使う画面、お客さまに渡す帳票、もう使っていない物の印

何を数えればよいか?

テーブル・クエリ・フォーム・レポートの数、VBA の行数、PtrSafe の無い Declare 文の数、リンクテーブルの数の7つです。

Access のデータベースの上限は 2GB、オブジェクトは32,768個、モジュールは1,000個です(Microsoft の仕様)。上限に近いファイルは、移す前にデータの年数を区切る相談をします。

どうやって数えるか?

テーブルとクエリは DAO の一覧から、フォーム・レポート・モジュールは Access の CurrentProject の一覧から数えます。手元の環境では、システムの表 MSysObjects は既定で読めませんでした。

PowerShell から Access を動かして数える書き方の例です(複製したファイルで行います)。

$acc = New-Object -ComObject Access.Application
$acc.OpenCurrentDatabase("C:\work\copy.accdb")
$db = $acc.CurrentDb()
$t = @($db.TableDefs | Where-Object { $_.Name -notlike "MSys*" -and $_.Name -notlike "~*" })
$q = @($db.QueryDefs | Where-Object { $_.Name -notlike "~*" })
"テーブル {0} / クエリ {1}" -f $t.Count, $q.Count
"フォーム {0} / レポート {1} / モジュール {2}" -f $acc.CurrentProject.AllForms.Count, $acc.CurrentProject.AllReports.Count, $acc.CurrentProject.AllModules.Count
$acc.CloseCurrentDatabase(); $acc.Quit()

確認した環境は、Windows 11、Microsoft 365 の Access(バージョン 16.0、64bit)です(2026年10月16日)。VBA の行数は、VBA のプロジェクトへのアクセスを信頼する設定にしてから、モジュールごとの行数を足して数えます。リンクテーブルは、TableDefs の Connect が空でない物です。

数えた結果をどう読むか?

VBA の行数と、同じ形で出すレポートの数が、移す手間を大きく左右します。テーブルの数は多くても、手間はあまり増えません。

この表は料金表ではありません。どこに手間がかかるかの見当をつけるためのものです。延命・乗り換え・作り直しの5年の総額は5年総額の計算機で比べられます。

棚卸しでよくある失敗は?

本番のファイルを直接開いてしまうこと、数えただけで使っている人に確かめないこと、リンク先のファイルを見落とすことの3つです。

よくある質問

棚卸しは自社でもできる?

できます。上の7項目を数えるだけなら、Access を開ける人がいれば半日で終わります。読み方に迷ったらご相談ください。

パスワードのかかった Access でも数えられる?

パスワードが分かれば数えられます。分からない場合は、作った人や前の保守の会社に確かめるところから始めます。

.accde や .mde でも数えられる?

テーブルやレポートの数は数えられますが、VBA のコードは見られません。元の .accdb や .mdb を探します。