DAOを使ったマクロが動かない

Question

未だにDAO？と思われるかもしれませんが、Excel2003の頃から使っているマクロを
少しずつ改良しながら使っています。

ところが、今回あるマシンでエラートラップになりそうなところに
入れていたIf文にひっかかったのです。

変数の中身を見るとdbs、rsともにNothingになっていました。

    Dim dbs             As DAO.Database
    Dim rs              As DAO.Recordset
    Dim strSQL          As String

＜中略＞

    Set dbs = OpenDatabase(<DBのパス>)
    Set rs = dbs.OpenRecordset(strSQL)

現象が出るのは、Windows10でExcel2016の環境なのですが、
別のWindows10でExcel2016だとうまく動くこともあるのです。

どのような場合にこのようなことが起こるのか知りたいです。
それによってどうやって解決するかを考えたいと思います。

Comments

[backyard]

「あるマシン」から、ネットワーク的にデータベースは見えるのでしょうか？そこだけ環境が違う職場だったり、そのPCの設定がほかと違う可能性についてまずは確認してみないと、もしかしたらプログラムのソースだけ見ていても解決しないかもしれません。そちらの確認状況や状態についての情報も補足いただくと有益なアドバイスが出てくるかもです。

[s_george]

【 ネットワーク的にデータベースは見えるの】については情報が不足していましたが見えています。
【そこだけ環境が違う職場】についてですが、同じサブネットマスク内のネットワーク上に動作するマシンも動作しないマシンもいます。

[退会済みユーザー]

「エラートラップになりそうなところ」というのがよくわかりませんが、`On Error` ステートメントを使用しているということなら、まずはそれを外してエラーを特定してください。

[s_george]

実際はOn Errorステートメントは入れていません。エラーというよりブレイクポイントを使って上記のステートメントを確認してみたのですが、変数がNothingになっているのです。

Answer 1

同じOS、同じExcelバージョン、同じマクロが動く環境と動かない環境がある場合、
・参照設定
・セキュリティパッチ
あたりに行き着くことが多いです

【参照設定】
VBAエディターを開いてメニューから「ツール」－「参照設定」を選択
参照可能なライブラリーファイルのリストでチェックの状態を比較

【セキュリティパッチ】
コンパネから「プログラムと機能」を開いて「インストールされた更新プログラム」のOfficeアップデート（KBxxxxxxx）を比較

違いがあるようであれば、参照設定を変更したり、セキュリティパッチをアンインストールしたりしてどうなるか

Comments

[s_george]

参照設定はすぐに思いついたので先にやっておきましたが、
いずれも＜参照不可＞ということはありませんでした。
OfficeアップデートのKBについては見てないので確認してみたいと思います。

[s_george]

アップデートに関しては自動的に最新になっていました。(某ツールにより)
なお、某ツールによりWindowsUpdateはコントロールパネルから見えなくなっていました。

Answer 2

On Error ステートメントを使用していないということで……。

OpenDatabase メソッドがエラーもなく Nothing を返すというのは考えにくいように思います。また、仮に返すとしても、次の行の OpenRecordset でエラーとなるはずです。

別の理由で OpenDatabase の行に到達していないとか、変数を確認する前にどこかで Nothing を代入しているとか、あるいはスコープ外で確認しているとか、そういったことはないでしょうか。

Comments

[s_george]

返信が遅くなりました。
改めてソースを見てみたらサブルーチンの最上部に
On Error Resume Next
と書いていました。

あと、投稿で記載したソースの下で
If rs.EOF = True Then
エラーメッセージ表示
Exit Sub
End If
としていました。

[ExcelVBAer]

じゃぁ「On Error Resume Next」をコメントアウトして実行してみれば、
エラーメッセージで原因が分かるんじゃぁないですか？

個人的には全関数にON Error ･･･ を入れるやり方は、
超デバッグしにくいのでやめた方がいいと思いますけどね。

[s_george]

実際にOn Error Resume Nextをコメントアウトして実行してもらったところ
エラーが出ている箇所がわかりました。
掲示したコードの前に
objFSO.CopyFile <コピー元のファイルパス>, <コピー先のファイルパス>
を実行しているところがあるのですが、そこでエラーが出ていました。
※objFSOはFileSystemObject型の変数です。

エラー内容は以下の通りです。
実行時エラー：'70'
書き込みができません。

実際にエラーが出るマシンでプロパティを確認しても読み取り専用にはなっていませんでした。
その他に確認することとかありますでしょうか？

[退会済みユーザー]

もはやDAOに全然関係なさそうなので別の質問にした方がいいんじゃないでしょうか。