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化する方法
その他(データベース)
-
ACCESS2010 レポートを分割しPDF化
Access(アクセス)
-
-
4
Accessフォーム全レコードをPDFで個別保存
その他(データベース)
-
5
AccessVBAでレポートをPDFで出力
Visual Basic(VBA)
-
6
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
7
AccessでPDFを複数ファイルにして出力
Visual Basic(VBA)
-
8
アクセスのマクロ
Visual Basic(VBA)
-
9
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
10
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
11
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
14
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
15
Access Excel出力する保存先を指定したいのですが?
その他(データベース)
-
16
アクセスでエクセルに出力する際のファイル名を日付に
その他(Microsoft Office)
-
17
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
18
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
19
accessのレポートを20行固定にする方法
Access(アクセス)
-
20
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SONYの音楽ソフト「x-アプリ」...
-
エクセルの表にヘンな枠が・・・
-
Mac de プログラム
-
pingは正常なのにtracerouteで...
-
「一定の時間間隔で5秒毎にMacr...
-
python IDLEで訂正、削除のやり...
-
emacsでCtrl+zを押してサスペン...
-
初回ログイン時のみ実行
-
windows10のごみ箱をrd /s /q C...
-
ファイルサイズが小さくなりま...
-
バッチファイル内の各コマンド...
-
死にたいと考えてしまうことっ...
-
CRONを隔週の日曜日に実行させたい
-
taskkill をバッチ処理できない。
-
◆CentOS nohupコマンドが実行で...
-
ROBOCOPY cmdで正常に処理され...
-
Linuxで実行ファイルを実行
-
デフラグの目安
-
pstファイル破損?
-
し運動不足なのでて片道6キロ往...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SONYの音楽ソフト「x-アプリ」...
-
エクセルの表にヘンな枠が・・・
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
windows10のごみ箱をrd /s /q C...
-
python IDLEで訂正、削除のやり...
-
バッチファイル内の各コマンド...
-
shutdownコマンド実行の残り時...
-
taskkill をバッチ処理できない。
-
Openイベントを開始させないで...
-
Check Diskは定期的に実行した...
-
ROBOCOPY cmdで正常に処理され...
-
Linux のシェルスクリプトの強...
-
最初の一度しか実行されないロ...
-
エクセルからアクセスのプロシ...
-
linuxサーバーのキャッシュをク...
-
SPI非言語の問題 解説お願いします
-
Macでlsした際の、ファイル名の...
-
windowsからtelnetでログインし...
-
CRONを隔週の日曜日に実行させたい
おすすめ情報