Chiedo cortesemente l'aiuto al fine di poter salvare in formato pdf direttamente in una cartella un report con lo stesso nome della squadra selezionata su maschera in una casella combinata.
In codice postato sulla predetta casella combinata dopo l'aggiornamento è il seguente:
Private Sub CasellaCombinata104_AfterUpdate()
If IsNull([inizioperiodo]) Or IsNull([fineperiodo]) Then
MsgBox "Data inizio o finale mancante"
Me.inizioperiodo.SetFocus
Else
If ([inizioperiodo]) > ([fineperiodo]) Then
MsgBox "La data Fine Periodo deve essere successiva alla data Inizio Periodo"
DoCmd.GoToControl "InizioPeriodo"
Else
On Error GoTo ErrNoData
DoCmd.OpenReport "TotaliQuoteConComitati", acViewPreview, , "[data]<= Forms![Le_stampe_delle_societa]![fineperiodo]and [data]>=Forms![Le_stampe_delle_societa]![inizioperiodo]"
DoCmd.OutputTo acOutputReport, "TotaliQuoteConComitati", acFormatPDF, "C:\Users\Utente\Desktop\2021-2022\tassa_gare2022\" & [Le_Stampe_delle_societa]![Forms]![CasellaCombinata104].pdf
DoCmd.Close acReport, "TotaliQuoteConComitati"
End If
Me.Requery
Exit Sub
ErrNoData:
If Err.Number = 2501 Then
MsgBox "NEL PERIODO CONSIDERATO NON RISULTANO GARE PROGRAMMATE", vbOKOnly, "AVVISO!"
Resume Next
End If
End If
End Sub
Il codice apre regolarmente il report relativo alla squadra selezionata e al periodo di tempo indicato ma successivamente non lo salva nella cartella indicata in formato pdf con lo stesso nome e ne tanto meno lo chiude.
Non riesco a venirne a capo. C'è qualcuno che può indicarmi come risolvere l'inconveniente? Grazie