VBからACCESS

質問

VBからACCESSをオープンしようとした時

メソッドまたはデータメンバが見つかりません。

というエラーが出ます。
参照設定で参照するモジュールを教えて下さい。

回答No.6

konchikisho · ベストアンサー

#3です
放っらかしにしてて申し訳ありません
私も以下の環境で試してみました

OS:WindowsXp
Office2003

ExcelVBAで以下の様に記載したら出来ました
（VBエッディタのツールの参照設定でMicrosoft Dao 3.60 Libraryのみ設定しました）
特に問題なかったのでパス指定がフルパスに成ってないのが原因では無いですかね？

Sub aaa()
Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Dim strDBpath As String
Dim strSql As String

strDBpath = "C:\yamada\yamada.mdb"
Set db1 = OpenDatabase(strDBpath)

strSql = "select A.* from A;"
Set rst1 = db1.OpenRecordset(strSql)
rst1.Close

End Sub

回答No.5

minami99999

DAOを使う場合ならNo.5の方の説明のように
Microsoft DAO 3.x Object Library
を参照しないといけないですね。
Accessのアプリケーションを操作するなら
Microsoft Access XXX Object Library
を使いますけど。

補足説明されているエラーメッセージから想像すると
「”ｘｘｘナンバー.mdb”が見つかりません」
っていうのは単純にファイルが見つかっていないとか・・・
フルパスで”D:\○○○\ｘｘｘナンバー.mdb" と指定すべきじゃないでしょうか？

回答No.4

Wendy02

#3 のレス－EXCEL2000のVBAです。
Access ですよね。

#1 さんの
#Microsoft Access XXX Object Library
#（XXXにはバージョンが入ります）

私は、Access のオブジェクトライブラリを使ったことがないですね。知りませんでした。通常、Access は、ADOですが、内容からすると、DAO のように見えるけれども。（^^;

例:
Dim ××× As DAO.Database
Dim ○○○ As DAO.Recordset
参照設定：Microsoft DAO 3.x Object Library
または、それぞれに、Database と Recordset を置く

何か、私自身がすごくトンチンカンな回答をしているような気がしてきます。

回答No.3

sckt

#1です。

変数の宣言がPublicになってないとか？

F8押しつつ#3のどこの行でエラーになっているかがわかると、
もっと具体的に考えられると思うのですが・・・

お願いします。

補足

Set ｘｘｘナンバー = OpenDatabase("ｘｘｘナンバー.mdb")

の所で”ｘｘｘナンバー.mdb”が見つかりません
というエラーです。

すいません・・・。

回答No.2

konchikisho

VBのバージョンは何ですか？
ソースコード等の記載がないと、回答し辛いかも・・(汗)。

参照しているオブジェクトがなんなのか検討つきません・・・。

えらそうな事言って置いて私、VB6までしか判らないので、その先助言できるかどうか判らないですが、

細かい部分まで記載した方がクリティカルな回答もらえると思いますよ。

追伸
おせっかいだけで、すみません。

補足

EXCEL2000のVBAです。

Set ｘｘｘナンバー = OpenDatabase("ｘｘｘナンバー.mdb")
Set データ = ｘｘｘナンバー.OpenRecordset("データ", dbOpenTable)
Do Until データ.EOF
データ.Delete
データ.MoveNext
Loop
For IDX3 = 0 To 件数
データ.AddNew
データ.通番 = Val(開始ナンバー) + IDX3
データ.ｘｘｘ = お問い合せ番号(IDX3)
データ.郵政 = 郵政CD(IDX3)
データ.Update
Next IDX3
データ.Close
ｘｘｘナンバー.Close
Unload Me
Unload ａａａナンバー作成メニュー
End Sub

回答No.1

sckt

Microsoft Access XXX Object Library
（XXXにはバージョンが入ります）
にチェックを入れてみてください。

補足

それは参照可能なライブラリファイルでですよね？
チエックは入れてるんですけど。
他に原因は考えられないでしょうか？