Accessのレポートのプロパティを変更した後、保存を行いたい。 (ID:82297)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記ソースでテストしたところ問題なさそうなのですが、 これ動きますか？ Dim objACCESS As Object Dim wk_TBL As String Set objACCESS = CreateObject("Access.Application") objACCESS.OpenCurrentDatabase App.Path & "\db1.mdb" wk_TBL = "テーブル２" ''カレントデータベースの設定 ''objACCESS.OpenCurrentDatabase wk_TBL, False 'デザインで開く objACCESS.DoCmd.OpenReport "レポート１", acViewDesign Set MyReport = objACCESS.Reports!レポート1 'レコードソースの変更 MyReport.RecordSource = wk_TBL 'レポートの印刷 'objACCESS.DoCmd.OpenReport レポート1 'レポート保存 objACCESS.DoCmd.Close acReport, "レポート１", acSaveYes 'カレントデータベースの解除 objACCESS.CloseCurrentDatabase