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

解決済みの質問

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

VB2008の環境からACCESSのレポートを起動させたいと考えて
います。

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

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

教えて下さい。

環境 : VB2008/ACCESS2000

《記述内容》

※ 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

投稿日時 - 2012-01-19 11:30:42

QNo.7253380

すぐに回答ほしいです

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

> 以下のような記述をしてみましたが、正しく起動してくれません。。。
「どの行で、どのようなエラーが出たか」は書いてくださいね。


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

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

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


set accApp = Nothing
と思います。

投稿日時 - 2012-01-19 22:44:29

お礼

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

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

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

投稿日時 - 2012-01-20 11:13:08

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

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

回答(1)

あなたにオススメの質問