ACCESS 項目がコレクションで見つかりません、の対処法

ACCESSで開発をしていると「項目がコレクションで見つかりません」というエラーメッセージが出ることがあります。

これだけだと何を言っているエラーなのかわかりませんね。
今回は、項目がコレクションで見つかりません、の対処法をご紹介します。

こんにちは。
はこにわガジェット（@hakoniwagadget）です。

ACCESSを使った売上管理、顧客管理などのデータベース開発を行っています。
ACCESSは基本機能だけでも十分便利ですが、VBAを使うことで格段に使いやすいデータベースを作成可能です。
この記事ではACCESSでのVBAの使い方をご紹介していきます。

1 項目がコレクションで見つからない、とは指定したオブジェクトやフィールドが無いこと
2 エラーの解消方法
3 サンプルプロシージャ

項目がコレクションで見つからない、とは指定したオブジェクトやフィールドが無いこと

「要求された名前、または序数に対する項目がコレクションで見つかりません」というエラーは、VBAのプロシージャで指定したオブジェクトやフィールドが存在しない、という意味です。

ACCESSのコレクションとはオブジェクトの集合体を指します。
例えば、Formsコレクションには現在開いているすべてのフォームが含まれ、Fieldsコレクションには現在開いているテーブルのすべてのフィールドが含まれます。

これらのコレクションの中に無いものを指定している、例えばFormsコレクションであれば存在しないフォーム名を指定していたり、Fieldsコレクションであれば存在しないフィールド名を指定している場合にこのエラーが出るのです。

エラーの解消方法

このエラーを解消するには、エラーとなっている箇所で扱われているフォームやフィールドなどのオブジェクトに誤りがないかを確認することが重要です。
基本的には何らかのミスで存在しないオブジェクトを指定しているため、その部分を修正してください。

コレクションをVBAのプロシージャで使用する場合は一括処理をするシーンが多いため、For Each … Nextステートメントを利用することが多くなります。
そのため、このエラーが出る場合はFor Each … Nextでコレクションを利用している箇所に原因があると考えるとよいでしょう。

サンプルプロシージャ

「項目がコレクションで見つかりません」のエラーが発生するサンプルプロシージャをご紹介します。
このプロシージャをもとに、解決方法をご紹介します。


 Dim cnn1 As ADODB.Connection
 Dim rst1 As ADODB.Recordset
 Dim rst2 As ADODB.Recordset
 Dim fld As ADODB.Field

 Public Sub record_duplicate()
    
    '変数にADOオブジェクトを代入
    Set cnn = CurrentProject.Connection
    Set rst1 = New ADODB.Recordset
    rst1.CursorLocation = adUseClient
    Set rst2 = New ADODB.Recordset
    rst2.CursorLocation = adUseClient
    
    'レコードセットを取得
    rst1.Open "MST_転記元", cnn, adOpenKeyset, adLockReadOnly
    rst2.Open "MST_転記先", cnn, adOpenKeyset, adLockOptimistic
    
    'コピー処理
    Do Until rst1.EOF
    
        rst2.AddNew
                   
           For Each fld In rst1.Fields
                       
              rst2(fld.Name) = rst1(fld.Name)
                       
           Next fld
                       
        rst2.Update
        
        rst1.MoveNext
        
    Loop

    '終了処理
    rst1.Close: Set rst1 = Nothing
    rst2.Close: Set rst2 = Nothing
    cnn.Close: Set cnn = Nothing

 End Sub

上記は、MST_転記元テーブルからMST_転記先テーブルへ全フィールドのレコードをコピーするプロシージャです。
このプロシージャを実行した際に項目がコレクションで見つかりません、のエラーが出たとします。