Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
creare una cartella data da un report access
16 views
Skip to first unread message
mb0...@gmail.com
Mar 2, 2016, 2:54:12 AM3/2/16
to
Ciao a tutti,
da un report di access ho un pulsante che mi crea un pdf in una determinata cartella:
Private Sub PDF()
DoCmd.PrintOut
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\Users\Public\Ricevute\" & "Ricevuta_N°" & Me.bis & "_" & Format(Date, "YYYYMMDD") & ".pdf", False
DoCmd.Close ObjectType:=acReport, ObjectName:=Me.Name
End Sub
Dovrei modificarlo in modo che giornalmente mi crea una cartella con il nome della data presente nel campo "dataricevuta" della ricevuta .
Se la cartella non esiste la deve creare e salvare la ricevuta li, altrimenti procede a salvare il pdf nella cartella esistente.
Se avete spunti grazie mille.
Grazie,
Marco
da un report di access ho un pulsante che mi crea un pdf in una determinata cartella:
Private Sub PDF()
DoCmd.PrintOut
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\Users\Public\Ricevute\" & "Ricevuta_N°" & Me.bis & "_" & Format(Date, "YYYYMMDD") & ".pdf", False
DoCmd.Close ObjectType:=acReport, ObjectName:=Me.Name
End Sub
Dovrei modificarlo in modo che giornalmente mi crea una cartella con il nome della data presente nel campo "dataricevuta" della ricevuta .
Se la cartella non esiste la deve creare e salvare la ricevuta li, altrimenti procede a salvare il pdf nella cartella esistente.
Se avete spunti grazie mille.
Grazie,
Marco
mb0...@gmail.com
Mar 2, 2016, 3:09:45 AM3/2/16
to
Private Sub Comando0_Click()
If Len(Dir("c:\tappo" & Me.data, vbDirectory)) = 0 Then
MkDir "c:\tappo" & Me.data"
End If
End Sub
ma da errore...
@Alex
Mar 2, 2016, 3:24:23 AM3/2/16
to
Il giorno mercoledì 2 marzo 2016 08:54:12 UTC+1, mb0...@gmail.com ha scritto:
Di solito si formatta Format([CampoData],ddmmyyyy)
@Alex
RobertoA
Mar 2, 2016, 4:23:52 AM3/2/16
to
0 new messages