Access PDF作成-日付フォルダー作成保存
使用MS Access 2010
たびたびの質問で恐縮です。
レポートをPDFで一件づつ自動作成-任意のファイル名で自動保存のイベントは、
質問番号:6530399 のご回答で上手くいったのですが、試行してみるとPDFファイルが大量にできるので、「日付名フォルダー」を毎日生成して、そこに自動保存したくなりました。そこで新しい質問として新たにお尋ねします。
「受注一覧」という表形式フォームに日々の受注客百件程度が表示されています。レコードのフィールドに[ID]という受注IDコードがあります。
受注確認メールへPDF添付ファイル作成用の「受注確認PDF」というレポートがあります。
レコードソースのパラメータクエリで、受注一覧フォームの受注IDを参照しています。
それを使って"受注確認書(受注ID:" & [ID] & ")"というファイル名で"C:\PDF"フォルダーに"yyyymmdd"というフォルダーを自動で作成し、そこにPDFを一件ごと(1ページ)別名で保存するボタンを作成したいのです。
"yyyymmdd"のフォルダーがすでにある場合はそこに保存、無い場合は自動生成することにしたいと思っています。
Private Sub コマンド1_Click()
Dim path As String
path = "c\受注確認PDF" & Format(Date, "yyyymmdd")
MkDir path
On Error GoTo ERR1
Exit Sub
ERR1:
DoCmd.GoToRecord acActiveDataObject, , acFirst
Do
If Me.Recordset.RecordCount = Me.CurrentRecord Then
MsgBox "最終レコードまで出力しました。"
Exit Sub
End If
DoCmd.OutputTo acOutputReport, "受注確認PDF", acFormatPDF, "c\受注確認PDF" & Format(Now(), "yyyymmdd") & "\" & "受注確認書(受注ID " & Me.ID & ").pdf"
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop
End Sub
DoCmd.GoToRecord から後の部分はhatena1989 様のご回答で上手くいったのですが、前半部分の日付名フォルダー作成のところが上手くいきません。
MkDir path →実行時エラー75 パス名が無効です。
となってしまいます。
また、エラートラップというのでしょうか?その書き方も自信ありません。
ご教授いただきたく、お願いします。
お礼
naktakさま こんばんは。引き続きのご返答を有難う御座います。 知識が乏しい中、「あ、そうか!」と納得させられました。有難う御座いました。