早速やってみましたが、エラーが出てきてできません。

質問

早速やってみましたが、エラーが出てきてできません。
　「ユーザー定義型が定義されていません。」と
Dim DB As Database
ここでとまってしまいます。

Help見たのですが、「オブジェクト ライブラリまたはタイプ ライブラリで定義する」とありました。

設定してみようとしたのですが、どれが必要なのかさっぱりわかりません。

回答No.1

O_cyan · ベストアンサー

>Dim DB As Database・・
DAOを使用するのですか？DAOなら
Dim DB As DAO.DATABASE
Dim rs as DAO.Recordset

Set DB = CurrentDB
Set rs = DB.OpenRecordset("テーブル名")
となりますが・・。
エラーは参照設定でDAOを参照していないので出てると思います。
2000以降はDAOではなくADOが標準で参照設定されているのですが・・。DAOはVBの参照設定でMicrosoftDAO？.？Object Libraryを参照しないと使えません。(?.?は使っているバージョンによって異なります。)

ADOを使用してAccessに接続する場合。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.AccessConnection
Set rs = New ADODB.Recordset
で出来ます。

回答No.2

sanbit

Visuai　Basic　コード画面の
ツール→参照設定で
Microsoft DOA　3.6 Object Library
にチェックを入れてみてください。
多分いけるはずです。