![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ACCESSでレポートを作成して、下記のVBAで管理番号(ID)別にPDFファイルで保存したいと思っています。保存名はIDにしたいと思っています。
管理番号ごとに出力する部分のコードが分からずに困っています。どなたかご教授頂けないでしょうか?よろしくお願いします。
Private Sub コマンド9_Click()
Const TBL_NAME = "T_住所録"
Const RPT_NAME = "R_住所録"
Const PDF_PATH = "C:\Users\TEST\"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT DISTINCT ID FROM T_住所録", CurrentProject.Connection, adOpenStatic, adLockReadOnly
Do Until rs.EOF
pdfName = rs!ID
DoCmd.OpenReport RPT_NAME, acViewPreview, , "ID = '" & rs("ID") & "'"
DoCmd.OutputTo acOutputReport, RPT_NAME, acFormatPDF, PDF_PATH & pdfName & ".pdf"
DoCmd.Close
rs.MoveNext
Loop
End Sub
実行すると「出力データを指定したファイルに保存できません」とメッセージが出ます。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
そちらの環境が不明なので
当方の場合です。
案1
Const PDF_PATH = "C:\Users\TEST\"
を自身のアカウント名のフォルダのサブフォルダにする
例 Const PDF_PATH = "C:\Users\Nicotinims\test\"
これならUACの影響を受けません。
どのフォルダがUACのチェック対象かは不明です。
上記での保存は確認しています。適当なところを探してみてください。
案2
C:\Users\TEST\ のアクセス許可を変更する。
Usersグループに、変更・書き込みの許可を与えます。
案3
UACのレベルを一番下まで下げる。(無効にする)
(これだけ再起動が必要なので試していません)
案4
Accessを「管理者として実行」する。
案1が一番妥当ではないですかね~。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
Acccess レポートをグループ別に出力する
Visual Basic(VBA)
-
Access2013でレポートを名前を付けて一括PDF化する方法
その他(データベース)
-
Accessフォーム全レコードをPDFで個別保存
その他(データベース)
-
-
4
ACCESS2010 レポートを分割しPDF化
Access(アクセス)
-
5
AccessVBAでレポートをPDFで出力
Visual Basic(VBA)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
アクセスのマクロ
Visual Basic(VBA)
-
8
AccessでPDFを複数ファイルにして出力
Visual Basic(VBA)
-
9
印刷ダイアログを表示させたくない
Visual Basic(VBA)
-
10
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
11
AccessのレポートからPDFをページ毎に作成
Access(アクセス)
-
12
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
13
アクセスのレポートに、フォームで算出した数字を表示させたい
Access(アクセス)
-
14
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
15
Access サブフォームでの選択行の取得
その他(データベース)
-
16
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
17
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
18
Access2007でページ毎にPDFを出力したい
その他(Microsoft Office)
-
19
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
20
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SONYの音楽ソフト「x-アプリ」...
-
エクセルの表にヘンな枠が・・・
-
pingは正常なのにtracerouteで...
-
Openイベントを開始させないで...
-
2000 イベントログのユーザーN/...
-
RedhatES5(CentOS5)でのGUIロ...
-
エクセル時間毎ごとにマクロを...
-
落とし前の付け方が分からない
-
MacのAutomatorを使うとPython...
-
バックグラウンド実行完了を待...
-
バッチファイル内の各コマンド...
-
windows10のごみ箱をrd /s /q C...
-
プログラム実行しようとすると...
-
CRONを隔週の日曜日に実行させたい
-
cronを使ってmydns.jpを更新す...
-
taskkill をバッチ処理できない。
-
python IDLEで訂正、削除のやり...
-
管理者権限でも hostsファイル...
-
postgres のコマンドが実行でき...
-
emacsでCtrl+zを押してサスペン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの表にヘンな枠が・・・
-
SONYの音楽ソフト「x-アプリ」...
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
Openイベントを開始させないで...
-
バッチファイル内の各コマンド...
-
エクセルからアクセスのプロシ...
-
taskkill をバッチ処理できない。
-
linux初心者です wineをつかっ...
-
linuxサーバーのキャッシュをク...
-
windowsからtelnetでログインし...
-
Macでlsした際の、ファイル名の...
-
python IDLEで訂正、削除のやり...
-
最初の一度しか実行されないロ...
-
信頼済みサイト登録をbatファイ...
-
エクセル時間毎ごとにマクロを...
-
shutdownコマンド実行の残り時...
-
Mac de プログラム
-
父子家庭、 子供の進学費用を全...
-
コマンドプロンプト「システム...
おすすめ情報