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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- JavaScript sessionStorageを調べています。 1 2023/06/20 12:41
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Acccess レポートをグループ別に出力する
Visual Basic(VBA)
-
Access2013でレポートを名前を付けて一括PDF化する方法
その他(データベース)
-
Accessフォーム全レコードをPDFで個別保存
その他(データベース)
-
-
4
アクセスのマクロ
Visual Basic(VBA)
-
5
ACCESS2010 レポートを分割しPDF化
Access(アクセス)
-
6
AccessVBAでレポートをPDFで出力
Visual Basic(VBA)
-
7
AccessでPDFを複数ファイルにして出力
Visual Basic(VBA)
-
8
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
9
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
10
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
11
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
12
印刷ダイアログを表示させたくない
Visual Basic(VBA)
-
13
AccessのレポートからPDFをページ毎に作成
Access(アクセス)
-
14
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
15
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
16
アクセスのレポートに、フォームで算出した数字を表示させたい
Access(アクセス)
-
17
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
18
Accessで請求書に印鑑をおしたい。
Access(アクセス)
-
19
Access サブフォームでの選択行の取得
その他(データベース)
-
20
Access2007でページ毎にPDFを出力したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SONYの音楽ソフト「x-アプリ」...
-
PowerShellってなんでイッパツ...
-
エクセルの表にヘンな枠が・・・
-
エクセル時間毎ごとにマクロを...
-
pingは正常なのにtracerouteで...
-
linux でバッチファイを作成し...
-
落とし前の付け方が分からない
-
シャットダウンバッチがうまく...
-
DMMで電子書籍を購入し、ファイ...
-
「管理者権限で実行」を選ばな...
-
ラズベリーパイに関して質問で...
-
linux初心者です wineをつかっ...
-
Openイベントを開始させないで...
-
スリープモードへの移行を一時...
-
自分の言動に責任を持つとは、...
-
python IDLEで訂正、削除のやり...
-
activeperl mac
-
Windowsにおいて、同じ名前で異...
-
windows10のごみ箱をrd /s /q C...
-
別PCでコンパイルしたCプロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの表にヘンな枠が・・・
-
SONYの音楽ソフト「x-アプリ」...
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
ROBOCOPY cmdで正常に処理され...
-
バッチファイル内の各コマンド...
-
Openイベントを開始させないで...
-
linuxサーバーのキャッシュをク...
-
最初の一度しか実行されないロ...
-
shutdownコマンド実行の残り時...
-
windows10のごみ箱をrd /s /q C...
-
CRONを隔週の日曜日に実行させたい
-
SPI非言語の問題 解説お願いします
-
python IDLEで訂正、削除のやり...
-
常に全画面表示するには・・・
-
エクセルからアクセスのプロシ...
-
信頼済みサイト登録をbatファイ...
-
デフラグは途中で止めても効果...
-
emacsでCtrl+zを押してサスペン...
-
taskkill をバッチ処理できない。
おすすめ情報