質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.47%

  • VBA

    1861questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Access

    457questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

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

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 593

urakawa

score 6

お世話になります。
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

よろしくお願いします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • maisumakun

    2016/05/17 11:12

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

    キャンセル

  • ozwk

    2016/05/17 11:18

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

    キャンセル

回答 1

checkベストアンサー

0

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

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

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

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


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

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

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/05/17 16:08

    jawa様

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

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


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

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

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

    キャンセル

関連した質問

同じタグがついた質問を見る

  • VBA

    1861questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Access

    457questions

    Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。