Access2007ではDocmd.CopyObjectは利用不可？

Question

WindowsXP上でAccess2007を利用しております。

　次のようなコードを実行すると、Docmd.CopyObjectのところでエラー（実行時エラー '3000; システムで予約されているエラー(-1524)云々）となります。

    Set Wsp = DBEngine.Workspaces(0)

    Set Dbs = Wsp.OpenDatabase(Dbsn, False, False, strPsWd)

    'Dbs.TableDefs.Delete "テーブル名１"

    DoCmd.CopyObject Dbsn, "テーブル名１", acTable, "テーブル名１"

　　Dbsn:出力先データベース（フルパスでファイル名まで指定）

　　strPsWd:出力先データベースのパスワード

　これまで2002上で上記コードを走らせており、何も問題が生じていなかったのですが、2007上で走らせるとエラーとなります。

　現在は、2007への移行にあたり、動作を検証している段階で、私のPCには2002も入っております。もしかすると、2002、2007の混在環境がエラーと何らかの関係があるのでしょうか？

　以上、何かご存知の方がおられましたら、ご教示の程をお願い申し上げます。

Answer 1

石田さん、ご教示ありがとうございます。

　私のところでは、Access2007だけの環境で試すことはできませんので、2002との共存環境で何とかするしかない状況です。

　それで、

　・どのオブジェクト(テーブル、クエリ、フォーム、レポート等)をDocmd.CopyObjectしても同じ現象になるか

　について、試してみました。

　その結果、コマンドボタンを配してコードを走らせているフォームと、Docmd.CopyObjectの対象になっているテーブル１以外は出力できることが分かりました（コードを走らせているフォームは閉じてからでないとDocmd.CopyObjectの対象にならないと思ったため、テストの対象とはしていません）。

　そこで、テーブル１に何らかの原因があるらしいと考え、エラーとならなかったテーブルとの違いを考えてみました。

　他のテーブルはフィールド数が５程度でレコードも最大で５００件、テーブル１は１６０フィールド×５０００件超ですが、大きさは関係なさそうでした。

　この他に、テーブル１にだけオートナンバー型のフィールドがありました。

　この番号が飛び飛びになっていましたので、これが原因かもと考え、テーブル１の構造だけコピーしたNewテーブル１を作成し、標準モジュールに書いたコードでオートナンバー型のフィールド以外のテーブル１のデータをNewテーブル１に全て書き写した後、テーブル１を削除し、Newテーブル１の名前をテーブル１としてDocmd.CopyObjectをテストしましたら、今度はエラーとならず、正常に出力先にコピーできました。

　オートナンバー型のフィールドのデータが飛び飛びとなっているだけで結果に差が出る原因は不明ですが、ともかく当初目指していたことができるようになったため、これにて解決といたします。

　ありがとうございました。

Answer 2

Lagarさん、こんにちは

Access2007のDocmd.CopyObjectでエラーがでるという事ですね。

こちらでもAccess2007(Access2002の共存なし)の端末にて試してみたのですが、Lagarさんが投稿されたようなエラーはでませんでした。

Lagar さんのほうでも、可能であれば、Access2007だけの環境で試してみてください。　

Access2007だけの環境でも発生する場合は、以下のような確認を行うと、問題の切り分けにもなって、みなさんからのアドバイスも集まりやすくなるかなと思いますよ。

・コピー先のデータベースがサーバなどにある場合、自分のローカル等に場所を変更しても同じ現象になるか

・どのオブジェクト(テーブル、クエリ、フォーム、レポート等)をDocmd.CopyObjectしても同じ現象になるか

・コピー先のデータベースを変えてみても同じ現象になるか

　新規で空のデータベースを作成して試してみるといいかもしれません

・mdb形式、accdb形式、adp形式のすべてのファイル形式で同じ現象になるか

・Office セーフ モードで実行した場合はどうか (参考：Office セーフ モードで作業する)

Lagarさんの返信お待ちしていますね。

---

石田 優 – Microsoft Support