Access PDF作成-日付フォルダー作成保存

質問

使用MS Access 2010

たびたびの質問で恐縮です。
レポートをPDFで一件づつ自動作成-任意のファイル名で自動保存のイベントは、
質問番号：6530399　のご回答で上手くいったのですが、試行してみるとPDFファイルが大量にできるので、「日付名フォルダー」を毎日生成して、そこに自動保存したくなりました。そこで新しい質問として新たにお尋ねします。

「受注一覧」という表形式フォームに日々の受注客百件程度が表示されています。レコードのフィールドに[ID]という受注IDコードがあります。

受注確認メールへPDF添付ファイル作成用の「受注確認PDF」というレポートがあります。
レコードソースのパラメータクエリで、受注一覧フォームの受注IDを参照しています。

それを使って"受注確認書(受注ID:" & [ID] & ")"というファイル名で"C:\PDF"フォルダーに"yyyymmdd"というフォルダーを自動で作成し、そこにPDFを一件ごと（１ページ）別名で保存するボタンを作成したいのです。
"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 パス名が無効です。
となってしまいます。
また、エラートラップというのでしょうか？その書き方も自信ありません。

ご教授いただきたく、お願いします。

回答No.2

nicotinism · ベストアンサー

ゴメンなさい
誤
　　　　If Me.Recordset.RecordCount = Me.CurrentRecord Then
　　　　　　MsgBox "最終レコードまで出力しました。"
　　　　End If
　　　　Exit Sub

正
　　　　If Me.Recordset.RecordCount = Me.CurrentRecord Then
　　　　　　MsgBox "最終レコードまで出力しました。"
　　　　　　Exit Sub
　　　　End If

でした。。。

お礼

nicotism様

出来ました！！　やったあ！
お忙しい中、ご返信ありがとうございます。
きちんと最後のレコードまでPDF作成して終了しました。

本当にありがとうございました。

回答No.1

nicotinism

こんな風かと
: と \ が抜けてました

Option Compare Database
Option Explicit

Private Sub コマンド1_Click()
　　On Error GoTo ERR1
　　Dim myPath As String

　　myPath = "c:\受注確認PDF" '親フォルダ確認
　　If Dir(myPath, vbDirectory) = "" Then
　　　　MkDir myPath
　　End If

　　myPath = myPath & "\" & Format(Date, "yyyymmdd")
　　If Dir(myPath, vbDirectory) = "" Then '子フォルダ確認
　　　　MkDir myPath
　　End If

　　DoCmd.GoToRecord acActiveDataObject, , acFirst
　　Do
　　　　DoCmd.OutputTo acOutputReport, "受注確認PDF", acFormatPDF, myPath & "\" & "受注確認書(受注ID " & Me.id & ").pdf"
　　　　'最後のレコードが出力されない気がして
　　　　'提示されたものと順番変えてます。多分こちらかと
　　　　If Me.Recordset.RecordCount = Me.CurrentRecord Then
　　　　　　MsgBox "最終レコードまで出力しました。"
　　　　End If
　　　　Exit Sub
　　　　DoCmd.GoToRecord acActiveDataObject, , acNext
　　Loop
　　Exit Sub 'エラーが無ければここでお仕舞い

ERR1:
　　'エラー処理は最後に記述
　　Debug.Print Err.Number & Err.Description
　　MsgBox "エラー発生。イミディエイトウィンドウを見よ " & Err.Description
End Sub

お礼

nicotinism様

早速のご回答ありがとうございます！

>最後のレコードが出力されない気がして
>提示されたものと順番変えてます。多分こちらかと

おっしゃる通り、以前のものは最終レコードだけ出力されていませんでした。
私の確認不足でした。ありがとうございます。

早速ご教授頂いたもので試したところ、うまく日付フォルダーが無い場合は生成され、ある場合はその中にPDFが出力されましたが、一行目のレコードだけ出力されて終わってしまいます。Loopのところが何か足りないのでしょうか？