フォームモジュールにおけるDimとPrivateの違い

Question

お世話になります。
Access2010を使用しています。

フォームモジュールにて、下記のようなコードを実行すると、
エラー 91 「オブジェクト変数または With ブロック変数が設定されていません。」
というエラーになります。

宣言セクションのPrivateステートメントをDimステートメントに変更すればうまくいったのですが、
この理由が理解できません。

エラーの内容からして、
Privateで宣言したrs2がTest()内では参照できないのだと思いますが、

Dimはプロシージャ内で使用する変数、
Privateはモジュール全体で使用する変数の宣言に利用するという理解をしておりましたので、
どうにも腑に落ちないのです。

フォームモジュールにおけるDimとPrivateの違いを
ご教授いただけませんでしょうか。

以下、参考のコードです。

Dim mydb1 As DAO.Database
Dim rs1 As DAO.Recordset
Private mydb2 As DAO.Database
Private rs2 As DAO.Recordset

Private Sub Form_Load()
Set mydb1 = CurrentDb
Set mydb2 = CurrentDb

Set rs1 = mydb1.OpenRecordset("データソース1")
Set rs2 = mydb2.OpenRecordset("データソース2")

Call Test

End Sub

Private Sub Test()
rs1.AddNew
'（処理記述）
rs1.Update

rs2.AddNew   'ここでエラー
'（処理記述）
rs2.Update

End Sub

よろしくお願いします。

Comments

[maisumakun]

「Set mydb1 = CurrentDb」が2行続いていますが、それは正しいものですか？

[ozwk]

Set mydb1 = CurrentDb が二行ありますがこれでいいんですか?

Answer 1

DimとPrivateの違いについては自分も同じような認識です。

今回のエラーについては、rs2が参照可能な範囲で宣言されていないためのエラーというより、rs2が未設定(Nothing)でエラーとなっているように思います。

提示いただいたコードは、実際のコードからのコピペではないように受け取れますが、例えば

Set rs1 = mydb1.OpenRecordset("データソース1") 
Set rs1 = mydb2.OpenRecordset("データソース2")

のような記述ミスはされていませんでしょうか？
もしくは、ここに未記載のコード内でrs2をNothingにしているとか。。

ちなみに、提示いただいたコードをこちらのaccess(2010)で動作させてみたところ、rs1/rs2ともに問題なく行追加されました。

デバッグ実行ができるようであればエラー箇所でブレイクし、rs2が実体を持っているか確認してみることをお勧めします。

Comments

[urakawa]

jawa様

結論から申しますと、解決しました。
いつも大変ありがとうございます。

今回の原因はご指摘の通り、
ボタンを押した最後の処理でRecordsetをクローズしており、
２回目に同じボタンを押した時に参照が空になっているのでエラーが出るというものでした。

フォームを開き直せばOpen時にRecordsetの参照がセットされるのですが、
検証中にPrivateからDimに変更したときに無意識で毎回フォームを開き直していたようで、
スコープの問題かと疑ってしまいました。

jawa様のご指摘がなければ、
文法的には合っているのでコンパイルも通ってしまっており、気が付きませんでした。

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