date and time in file name

[steve111]

hi,

I have a macro that sends a report to a folder in " my documents "
below is how the file name of the report is created
but I have discovered that if a need a paper trail it cannot do it as when I resend the report it just over write the old one. can a date and time be added to this code

   strFullPath = varFolder & "\" & "Invoice Number" & " " & [Invoice].[Form]![InvoiceNo] & ".pdf"

thanks
steve

 

[namliam]

Sure can do even time if you want to, just use the NOW function and a little bit of your imagination.

 

[steve111]

hi,

I did try this but got this error message

" the output to action was cancelled"
I used this code

 ' strFullPath = varFolder & "\" & "Ackowledgement number " & " " & Me.ID & " " & Now() & ".pdf"

steve

 

[Minty]

That's probably because Now() will generate something like 05/11/2015 09:50:34
So your file name will be

Ackowledgement number 12345 05/11/2015 09:50:34.pdf

Try saving any file with that as a file name ...

Remove all the spaces (for ease of finding and sorting the file when you later want to list them / email them reprint them...) and format Now() datetime to a acceptable file name format.

If you used Debug.Print strFullPath you would see the answer

 

[steve111]

hi
thanks

yes having tried to save a file like that would not work thanks.

now ok

strFullPath = varFolder & "\" & "Ackowledgement number " & Me.ID & " " & Format(date, "yyyy_mm_dd") & ".pdf"

steve

 

[Minty]

Good - glad to have pointed you in the right direction.
As I suggested you file naming with spaces will lead to issues later if you want to look them up or find them.
For your own sanity I would be tempted to store the document in a folder called Acknowledgements then simply call them ID & "_" & yyyy-mm-dd .pdf.

Later on if you have another document type store them in another appropriately named folder name with the same format and you can use simple code to retrieve them or check if they already exist.