Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1245 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8008】コンパイルエラー（関数またはインターフェース・・・） アクセク 06/6/17(土) 21:06 質問[未読]
【8013】Re:参照設定 たん 06/6/19(月) 11:13 回答[未読]
【8014】Re:参照設定 アクセク 06/6/19(月) 21:25 お礼[未読]
【8033】Re:参照設定 たん 06/6/23(金) 9:33 回答[未読]
【8047】Re:参照設定 アクセク 06/6/24(土) 21:39 お礼[未読]
【8008】コンパイルエラー（関数またはインターフ...
質問  アクセク  - 06/6/17(土) 21:06 -
引用なし
パスワード
   はじめまして、PCの再インストールを実施後、フォームからイベントを実行すると、
コンパイルエラー
「関数またはインターフェイスが予約されているか、または Visual Basic でサポートされていないオートメーション タイプが関数で使用されています。」
が表示され、処理ができなくなってしまいました。

過去ログを調べたところ類似の書き込みがあり、MSNのサポート情報へのリンクが張ってあったので早速調べたところ、既にサポート外になっていました。
何とか検索してみましたが、それらしい情報は見当たりませんでした。

使用環境とエラーの発生した箇所
OS;XP（SP2 -DAO360.DLL-）、Access；97

Dim db As DAO.Database
Set db = CurrentDb() ←ここが反転表示

再インストールは同じ環境に戻したはずなのですが・・・
今まで何も問題なく動いていたのですが、さっぱりわかりません。
どのように書き直したらよいのか、ご教示いただけると助かります。
【8013】Re:参照設定
回答  たん  - 06/6/19(月) 11:13 -
引用なし
パスワード
   参照設定を確認し直して下さい。
【8014】Re:参照設定
お礼  アクセク  - 06/6/19(月) 21:25 -
引用なし
パスワード
   ▼たん さん：
>参照設定を確認し直して下さい。

ご指摘ありがとうございます。
エラーが出て困ったときに、参照設定の事がボード上にあり一応確認してみました。比較のため旧環境（image fileが保存してあったので）を再現して、確認しましたが同じ設定でした。
参照設定では、どちらもDAO3.6にチェックが入っています。

旧環境との違いは、
旧）97が既にインストールしてあったところへ、XP_SP2をインストールした
新）XP_SP2上へ、97をインストールした
ですが、何か違いがあるのでしょうか。

DLLは、DAO3.5とDAO3.6が同じフォルダ上に格納されています。
97では3.5を使っていたのでしょうか。
DAO3.5をレジストリーに再登録しないとだめなのでしょうか。
それとも、コーディング上で付加する部分があるのでしょうか。
【8033】Re:参照設定
回答  たん  - 06/6/23(金) 9:33 -
引用なし
パスワード
   まず、CurrentDb関数を使う場合、引数はありませんので、()も後ろに付きません。

# ヘルプで記述方法をきちんと確認して下さい。

その上でダメだったというなら、新規mdb上で、同じ記述をした上で、
コンパイルして、ひっかかるかどうか。

引っかからないなら、現在使用中のmdbを、上記とは別に新規mdbを作成し、
全部インポートし直すべきでしょう。
（内部で整合が取れていない可能性もある。）

また、参照設定を設定し直してみるというのもあるでしょう。

ただ、XPとAC97の組み合わせはサポート範囲外（AC97はWin2000までだった筈）
なので、MSも想定外のトラブルによるのかもしれませんが、現在の組み合わせは
何かあっても、自己責任ということになります。
【8047】Re:参照設定
お礼  アクセク  - 06/6/24(土) 21:39 -
引用なし
パスワード
   たんさん
ありがとうございます。

（）に関しては、元々のスクリプトにはありませんでした。
昔読んだ参考書に、「関数は引数の有無にかかわらず（）が必要」と有ったことや、他のサイトでの参考事例を拝見して、（）を付けて投稿しました。
実際（）の有無にかかわらずエラーは出ていました。

そうですか、XPと97はサポート外ですか・・・、基本的なところが良くわからないまま、97で何とか動くものを作成して重宝していたものですから、ちょっとした書き直しで何とかそのまま使用できたら良いなと単純に考えていました。

２００ｎへの乗換えを考慮し、この件に関しては解決といたします。
いろいろとありがとうございました。
今後ともよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1245 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081089
(SS)C-BOARD v3.8 is Free