DAO 定義されていないとエラーが出る

Question

http://vba.officehp.com/article/99302086.html

Access初心者入門講座の例題をやってみました

サンプルDBを開いた後、以下のコードを標準モジュールに書き込みました。

Sub test01()

Call seekdata(90)

End Sub

Sub seekdata(pcd As Integer)

Dim db As dao.database

End Sub

これを実行すると

Dim db As dao.database　で

「ユーザ定義型が定義されていません」とエラーが出ます。

何故でしょうか？

Answer 1

yajisan さん、こんにちは。

マイクロソフト コミュニティ への投稿ありがとうございます。

Dim db As dao.database のところで、「ユーザー定義型が定義されていません」 のメッセージが出ているので、ひょっとすると DAO 関連の参照設定が出来ていないのかな、という気がします。

次のページを参考に、VBA の参照設定を確認してみてください。

参考ページ : 「ユーザー定義型は定義されていません。」エラーの対処方法

※ サポートページではありませんが、わかりやすくまとめられているので参考になるかと思います

「この設定を確認しても状況が変わらないので引き続き情報を集めたい」 という場合には、開発者の方々が情報交換を行っている MSDN の VBA フォーラム で情報を集めるのがよいかもしれませんよ。

Answer 2

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