VBコンパイルエラー

質問

エクセルで入力したデータを転送してアクセスで管理するシステムを流用したいのですが、
実行するとコンパイルエラーが発生してしまいます。

作成した際に使用したのはエクセル2000とアクセス2000
今回使用したいのがエクセル2013とアクセス2013です。

下記に記載するのがＶＢのコードです。
このまま実行すると『プロジェクトまたはライブラリが見つかりません』と表示されます。

Sub データ転送()

Dim tempData() As Variant
Dim str As String
Dim tempDB As DAO.Database
Dim tempRecordset As DAO.Recordset
Dim intCnt As Integer
Dim i As Long
Dim j As Long
Dim res As VbMsgBoxResult

res = MsgBox("データを転送しますか？", vbYesNo + vbExclamation)

If res = vbYes Then

str = "I:\営業部\近隣関係\稼動分析\近隣稼動データVer104.mdb"
Set tempDB = OpenDatabase(str)
Set tempRecordset = tempDB.OpenRecordset("Q_調査日カウント")

For intCnt = 1 To tempRecordset.Fields.Count
Cells(1, intCnt).Value = tempRecordset.Fields(intCnt - 1).Name
Next
Sheets("データ保持日").Select
Columns("A:A").Select
Selection.ClearContents
Range("A1").CopyFromRecordset tempRecordset
tempRecordset.Close
tempDB.Close
Set tempRecordset = Nothing
Set tempDB = Nothing

Else

MsgBox ("キャンセルしました。")
GoTo 0

End If

Sheets("入力フォーム").Select
If Range("F2").Value = 0 Then
Sheets("出力データ").Select
With Range("A1").CurrentRegion
tempData = .Resize(.Rows.Count - 1).Offset(1).Value
End With

Set tempDB = OpenDatabase(str)
Set tempRecordset = tempDB.OpenRecordset("T_データ")

For i = 1 To UBound(tempData, 1)
With tempRecordset
.AddNew
For j = 1 To UBound(tempData, 2)
.Fields(j - 1) = tempData(i, j)
Next
.Update
End With

Next
tempRecordset.Close
tempDB.Close

MsgBox ("データ転送完了！！")
Sheets("入力フォーム").Select

Else

MsgBox ("データが既に転送済みです。更新する場合はデータベースからデータを削除した後行ってください。")

End If

0:

Sheets("入力フォーム").Select
Range("A1").Select

End Sub

ダメな所がわかる方ご教授の程よろしくお願いいたします。

回答No.1

bin-chan

2013に使ってないけど。

参照設定ダイアログを確認する事からでしょうね

参考URL：

http://www.moug.net/tech/exvba/0150128.html

補足

ご回答ありがとうございます。
参考ＵＲＬのおかげで記載したエラーは解消されました。

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