ACCESSレポートの起動のさせて方に関して

ＶＢ２００８の環境からＡＣＣＥＳＳのレポートを起動させたいと考えて
います。

いろいろ検索しました結果、以下のような記述をしてみましたが、正しく起動
してくれません。。。

どのように記述するのが正しいのでしょうか？？？

教えて下さい。

環境　：　ＶＢ２００８／ＡＣＣＥＳＳ２０００

《記述内容》

※　Microsoft Access 9.0 Object Libraryを追加

Dim accApp As Access.Application

'Access の新しいインスタンスを作成
accApp = CreateObject("Access.Application")

'データベースを Access ウィンドウで開く
accApp.OpenCurrentDatabase("c:\sample1.mdb")

'印刷
accApp.DoCmd.OpenReport("R_sanple")

'現在開いているデータベースを閉じる
accApp.CloseCurrentDatabase()

'インスタンス破棄
accApp = Nothing

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2012/01/19 22:44

> 以下のような記述をしてみましたが、正しく起動してくれません。

。。
「どの行で、どのようなエラーが出たか」は書いてくださいね。


たぶん
'Access の新しいインスタンスを作成
accApp = CreateObject("Access.Application")　　<--ここの行？

だったら
set accApp = CreateObject("Access.Application")
としてください。

同様に
'インスタンス破棄
accApp = Nothing

も
set accApp = Nothing
と思います。

この回答へのお礼

ご回答ありがとうございます！

ご指摘頂いたようにしたら問題なくできました！

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

お礼日時：2012/01/20 11:13