• ベストアンサー

アクセス９７のＶＢＡが２０００で使えません。

ＡＣＣＥＳＳ９７で問題なく動いていたＶＢＡなのですが、ＡＣＣＥＳＳ２０００では「ユーザー定義型は定義されていません。」というエラーとなって動きません。 ソースで言うと、 Dim DB As Database というような変数宣言の部分でいきなり出てきます。 Database型がユーザー定義型と認識されているようですが、何故こうなってしまうのでしょう？ またどのようにすればこの問題を解消できるでしょうか？ また９７と２０００でのコーディング上の変更点などは、どこで調べるのが分り易いでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • KojiS
  • ベストアンサー率46% (145/312)
回答No.2

Visual Basic Editorの[ツール][参照設定]です。 「Microsoft DAO ?.? Object Library」が指定されているかどうかチェックしてみましょう。

neo_gigantes
質問者

お礼

完全に解決しました！ありがとうございました！

その他の回答 (1)

  • KojiS
  • ベストアンサー率46% (145/312)
回答No.1

Access97では DAOが基本でしたが、Access2000では ADOが基本になっています。VBAの参照設定は確認されましたか？ あとは、わかりやすくするために Dim DB As DAO.Database のようにするとよいでしょう。 Access97で作ったデータベースを Access2000でそのまま使用するという前提でお答えしました。

neo_gigantes
質問者

お礼

アドバイスありがとうございます。すかさず質問してしまい恐縮ですが、参照設定とは何のことでしょうか？ ひとまずDim DB As DAO.Databaseというように変更してみましたが、改善されません。お暇な時で結構なのでアドバイス頂けると幸いです。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ACCESSのVBAについて

    アクセスのVBAでdatebaseやRecordsetが宣言できません。ヘルプでは【参照設定】でDate　Access　Objectをオンに指定ない場合は認識されずエラーになります と書いており、参照設定を見たのですがDate Access Objectという欄がありません、どうしたら宣言することができますか？ 例)Dim db As Database　Dim rsDate As Recordsetこれらがエラーになる。 大変困っています。ちなみにAccess2000です。

  • Access2002 VB がエラー

    Access2002 VBで以下のコーディングをしてます Dim db As Database Dim rs As Recordset Dim fld As Field Set db = CurrentDb Set rs = db.OpenRecordset("ConvertChar") これを実行するとdb宣言行で以下のエラーが表示されます。 コンパイルエラー： ユーザ定義型は定義されていません。 これは何が原因でエラーとなるのでしょうか？ 宜しくお願いします。

  • Access2000のVBAでコンパイルエラー

    Access2000のVBAで初歩的な質問があります。 「tblShi」というテーブルがあります。 フォームにボタン「btn1」を作り、 デザインビューでボタンのプロパティを開いて イベントのクリック時のところで、 「ビルダの選択」をコードビルダにしました。 そして「Private Sub btn1_Click()」の中に、最初に 　　Dim db As Database という記述をしています。 このフォームを開いてボタンを押すと、なぜか 　　コンパイルエラー 　　ユーザ定義型は定義されていません というエラーが表示されてしまいます。 たしかにコードを書いているときに、 　　Dim db As のところまで入れると、小さいウィンドウの中に たくさん候補が表されますが、 その中に「Database」というのがないです。 「QueryDef」とか「Workspace」とかもありませんでした。 （「Recordset」はありまして、それはコンパイルが通ります） いろいろな解説を見ても、やはり最初はどれも 「Database」型を宣言しているようなんですが… 何がよくないのでしょうか。 もしわかる方がいらっしゃったら教えてください。

  • ACCESS2000でテーブルをVBAからテーブルを読み込む方法

    ACCESS2000を使っています。 以下の指定をした場合、「ユーザ定義型は定義されていません」のメッセージが出て、コンパイルが通りません。 なにかインストールや設定が必要なのでしょうか？ Dim db As Database Dim rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("テーブル名", dbopendynaset) ヘルプ等を自分なりに参照してみたのですが、わかりません。教えてください。

  • アクセスＶＢＡです

    Sub test() Dim DB As Database Dim T As TableDef Dim myTable As String myTable = "Table1" Set DB = OpenDatabase(CurrentProject.FullName) For Each T In DB.TableDefs If T.Name = myTable Then DoCmd.DeleteObject acTable, myTable Exit For End If Next DB.Close Set DB = Nothing End Sub これを実行しようとすると Dim DB As Database の部分で コンパイルエラー プロジェクトではなく、ユーザ定義型を指定してください。 と言うエラーになります。 Dim DB As Objectにすればエラーにならずに進みますが 何が原因なのでしょうか？

  • ACCESSの宣言

    Private Sub コード_AfterUpdate() Dim Mdb As Database Dim Mtb As Recordset Dim sqlstr As String って、始めに宣言しますが、いざプログラムを走らせてみると、Dim Mdb As Database で "コンパイルエラー　ユーザー定義型は定義されていません" になってしまいます。ここでひっかかるともうどうにもできないです。 なぜ、この宣言はいけないのでしょうか？

  • AccessでのSQL文

    AccessでSQL文を使おうと思うのですが、 Dim mydb as Database とすると、ユーザ定義型は定義されていません とエラーになります。 また、mydb as と打つと変数の方の一覧が出ますがその中にもDataBaseがありません。 サンプルの家計簿を開いてみるとSQL文を使っているのにエラーは出ません。 ヘルプを見てみるとDAOが関係しているようなのですが良くわかりません。 AccessでDatabase型を使うにはどうすればいいのでしょう。 教えてください。 Access2000です。

  • DATABASE型について

    ACCESSプロジェクトを使っています。　 (基本的な理解不足だと思いますが) Access97では、 Dim DB As Database Dim RS As Recordset と宣言して Set DB =CurrentDb() Set RS=DB.OpenRecordset(… で使えていましたが、Accessプロジェクトでは使えません。 (ストアドプロシージャ部分ではなく、フォームのVBA部分で) フォーム上のボタンから、モジュール操作を実行したいのですが、 上記　そのまま使用すると 「コンパイルエラー　ユーザー定義型は定義されていません」　と出てきます。 Accessプロジェクトで操作するにはどのようにすればいいのでしょうか？

  • ACCESS2007でのDAO（？）につきまして

    お世話になっております。 ACCESSの件で色々教えて頂き、とても感謝しております。 つきましては、ACCESS2007で疑問に思える点がありましたので 以下に記述いたします。 あるACCESS2007のVBAの記述で Dim myDB As Database Dim myQueryDef As QueryDef なる変数定義がされているのを見たのですが 質問があります ＜質問１＞ 上記の定義はDAOを使用しているという事になるのでしょうか？ ＜質問２＞ DAOであるならば Dim myDB As DAO.Database Dim myQueryDef As DAO.QueryDef と記述するのが正しいのではないでしょうか？ （Option Explicitは記述してあります） 私には謝った記述に見えるのですが、動作 している理由がわかりません。 質問が変かもしれませんが、どなたか教えて 頂けるありがたいです。

  • エクセルからアクセスへ

    お世話になります。 エクセルからＶＢＡでアクセスのテーブルに レコードを追加させたいのですが、 下記の記述でいきなり　mydb as database　の所が 青く塗られ 「コンパイルエラー：ユーザー定義型は定義されていません」 とエラーになってしまします。 また、databaseのdが小文字なのも気になります。 参照設定での項目チェックが必要なんだと思うのですが どこにチェックしたら良いのか、またそれだけではダメなのか 分かりません。 どなたかご教授下さい。 　　　　記 Dim mydb As database Dim myrs As Recordset Dim myrnge As Range Dim myrow As Long

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する