質問: mydb2.OpenRecordset("データソース2") Call Test End Sub Private Sub Test() rs1.AddNew '(処理記述) rs1.Update rs2.AddNew 'ここでエラー '(処理記述) rs2.Update End Sub よろしくお願いします。
回答: DimとPrivateの違いについては自分も同じような認識です。 今回のエラーについては、rs2が参照可能な範囲で宣言されていないためのエラーというより、rs2が未設定(Nothing)でエラーとなっているように思います。 提示いただいたコードは、実際のコードからのコピペではないように受け取れますが、例えば ``` Set rs1 = mydb1.OpenRecordset("データソース1") Set rs1 = mydb2.OpenRecordset("データソース2") ``` のような記述ミスはされていませんでしょうか? もしくは、ここに未記載のコード内でrs2をNothingにしているとか。。 ちなみに、提示いただいたコードをこちらのaccess(2010)で動作させてみたところ、rs1/rs2ともに問題なく行追加されました。 デバッグ実行ができるようであればエラー箇所でブレイクし、rs2が実体を持っているか確認してみることをお勧めします。