File ID Help

[anon1971]

Below is the code I am working on and what I need to do is just have on click it save the file to a folder and automaticly use the date as the file name but it keeps saving the file name as Date() rather than the date can anyone help?

Private Sub Command378_Click()
DoCmd.OutputTo acReport, "Letter", "RichTextFormat(*.rtf)", "\\192.168.0.1\Letters\& Date()", False, "", 0

End Sub

 

[mintjulep]

DoCmd.OutputTo acReport, "Letter", "RichTextFormat(*.rtf)", "\\192.168.0.1\Letters\" & Date(), False, "", 0

 

[SkipVought]

Hi,

Private Sub Command378_Click()
    DoCmd.OutputTo acReport, "Letter", "RichTextFormat(*.rtf)", "\\192.168.0.1\Letters\" & Format(Date(),"yyyy-mm-dd"), False, "", 0
    
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[anon1971]

Thanks guys works great but I have one more thing how do I add the time and seconds to the equation?

 

[PHV]

DoCmd.OutputTo acReport, "Letter", "RichTextFormat(*.rtf)", "\\192.168.0.1\Letters\" & Format(Now,"yyyy-mm-dd_hh-nn-ss"), False, "", 0

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[anon1971]

Thanks it works great guys just wish I could out put via tiff format.

 

[anon1971]

One more thing Guys I can't get the snapshot to work because of the s in the exe of the file. Is there a way to get this to work or to use tiff file format?


DoCmd.OutputTo acReport, "Letter", "SnapshotFormat(*.snp)", "\\192.168.0.1\Letters\" & Format(Now, "yyyy-mm-dd_hh-nn-ss.snp"), False, "", 0

 

[SkipVought]

DoCmd.OutputTo acReport, "Letter", "SnapshotFormat(*.snp)", "\\192.168.0.1\Letters\" & Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".snp", False, "", 0

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[anon1971]

I could have sworn I tried it that way but I guess not it works now. Is there any way to format in tif?

 

[SkipVought]

Using this method you are limited by the acFormat.

You need to use some other software.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[anon1971]

Ok I got every thing working but I need to retrieve the file path like so:

Dim stAppName As String
DoCmd.OutputTo acReport, "Letter", "SnapshotFormat(*.snp)", "\\192.168.0.1\Letters\" & Format(Now, "yyyy-mm-dd_hh-nn-ss-ms") & ".snp", False, "", 0
FilePath = getLastTIF("\\192.168.0.1\letters\")

But it want look for the SNP in place of the tif.

 

[SkipVought]

What is function getLastTIF???

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}