ACCESS2000でコンパイルエラーが表示されてしまいます

質問

ACCESS初心者です。宜しくお願いします。
前任者が作成したACCESS2.0で使用していたものを、ACCESS2000でコンパイルすると、
コンパイルエラー
ユーザ定義型は定義されていません。と表示されてしまいます。

Sub ページ設定P()
Dim DB As Database, T As Table, X As Integer, I As Integer, 図面番号 As Integer

Set DB = CurrentDb()
Set T = DB.OpenTable("図面リスト印刷TEMP") ' テーブルを開きます。

X = DCount("印刷", "図面リスト印刷TEMP", "[印刷]=No")

If X > 27 Then
X = X - 27 + 43
X = X Mod 42
X = X

For I = 1 To X
T.MoveLast
T.Delete
Next I

Else

X = X - 27 + 43
X = X
For I = 1 To X
T.MoveLast
T.Delete
Next I

End If

End Sub
どのようにすれば動くのでしょうか？
以上、宜しくお願い致します。

回答No.2

kakusuke · ベストアンサー

＃１さんの回答に補足。

ActiveX Data Objects Libraryは
参照設定から必ず外しておいてください。

補足

早速の回答有難う御座いました。参照設定を確認し再度試してみましたが、T As Tableのところで同様のエラーメッセージが表示されてしまいました。申し訳ありませんが、何卒ご教授宜しくお願い致します。

回答No.5

palmmy

#4です。

すいません。
MsgBox X
は消してください。

回答No.4

palmmy

#3さんので動くはずですよ。
下記のソースでうちのACCESSは動きました。

Sub ページ設定P()
Dim DB As Database, T As Recordset, X As Integer, I As Integer, 図面番号 As Integer

Set DB = CurrentDb()
Set T = DB.OpenRecordset("図面リスト印刷TEMP") ' テーブルを開きます。
X = DCount("印刷", "図面リスト印刷TEMP", "[印刷]=No")
MsgBox X
If X > 27 Then
　　X = X - 27 + 43
　　X = X Mod 42
MsgBox X
　　For I = 1 To X
　　　　T.MoveLast
　　　　T.Delete
　　Next I
Else
　　X = X - 27 + 43
　　For I = 1 To X
　　　　T.MoveLast
　　　　T.Delete
　　Next I
End If
End Sub

お礼

どうも有難う御座いました。無事解決致しました。これからもっと勉強を行い邁進していきます。

回答No.3

tsukasa-12r

Dim DB As Database, T As Table, X As Integer, I As Integer, 図面番号 As Integer
↓
Dim DB As Database, T As Recordset, X As Integer, I As Integer, 図面番号 As Integer

に

Set T = DB.OpenTable("図面リスト印刷TEMP")
↓
Set T = DB.OpenRecordset("図面リスト印刷TEMP")

にすればいいんじゃないかと思います。

お礼

どうも有難う御座いました。無事解決致しました。これからもっと勉強を行い邁進していきます。

回答No.1

palmmy

参照設定でDAOがあるか確認してください。
上から３番目にあった方が良いのですが、
バージョンも確認してください。

Visual Basic for Application
Microsoft Access 9.0 Object Library
Microsoft DAO 3.6 Object Library
になってれば良いかと思います。

補足

早速の回答有難う御座いました。参照設定を確認し再度試してみましたが、T As Tableのところで同様のエラーメッセージが表示されてしまいました。申し訳ありませんが、何卒ご教授宜しくお願い致します。