こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

OS:Windows7

OS:Windows7
ACCESS:2003 ランタイム
SQLServer2000

mdbのフォームからadpのフォームを開くために以下のコーディングをしています。

Dim strAppPath As String
Dim strDBPath As String

strAppPath = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"
strDBPath = """C:\Program Files\SSSS\sugimura05ADP.ADP"""
Shell strAppPath & " " & strDBPath, vbMaximizedFocus

Dim obj As Access.Application
Set obj = GetObject("C:\Program Files\SSSS\sugimura05ADP.ADP")
obj.DoCmd.OpenForm "売上伝票入力"

OSがWindowsXPの場合、問題なく動作するのですが、
Windows7の場合、以下のようなメッセージが出て、動作しません。
「ActiveXコンポーネントはオブジェクトを作成できません。」
参照設定で
Microsoft ActiveX Data Object 2.8 Libraryを選択しています。

どなたかご教授をお願いいたします

投稿日時 - 2010-05-26 12:21:38

QNo.5922922

すぐに回答ほしいです

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

参考にしてみてください。

http://support.microsoft.com/kb/319844/JA/
http://support.microsoft.com/kb/882110/ja

XPがOKで7がNGならユーザ権限のような気もしますが。。。

投稿日時 - 2010-05-26 12:58:01

お礼

ご回答ありがとうございます。
その後問題を切り分けましたが、
問題がWindows7では無く、インストールされているOfficeのバージョンにあることが分かりました。
Accessのruntimeバージョンが2003,Officeのバージョンが2007です。
Office2007をアンインストールすると正常に動作します。
同居させた時に正常に動作するようにDAO設定や、参照設定を変えながら試行錯誤しています。
今回はご回答ありがとうございました。

投稿日時 - 2010-05-28 22:17:37

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問