Salvare un report in pdf

Ciao ho scritto il seguente codice, ma non riesco a salvare il mio file. Il codice genera automaticamente il nome del file attingendo ai campi della maschera Nome e cognome e secondo il codice dovrebbe salvare il file con una striga "yyyymmddhhnnss" se il nome del file risultasse vuoto.

Il mio problema che continua a chiedermi il nome del file. 

Questo è il codice:

Public Sub SalvaRecordInPDF()

    Dim strFolderPath As String
    Dim strFileName As String
    Dim strFilePath As String
    
    'Apri la finestra di dialogo della cartella e ottieni il percorso selezionato dall'utente
    With Application.FileDialog(3)
        .Title = "Seleziona la cartella in cui salvare il file PDF"
        .ButtonName = "Seleziona"
        If .Show = -1 Then
            strFolderPath = .SelectedItems(1)
        Else
            Exit Sub 'L'utente ha annullato la finestra di dialogo
        End If
    End With
    
    'Crea il nome del file utilizzando il nome e il cognome del record corrente
    strFileName = Nz(Me!Nome, "") & "_" & Nz(Me!Cognome, "")
    
    'Se il nome del file è vuoto, crea un nome di file predefinito utilizzando la data e l'ora corrente
    If Len(strFileName) = 0 Then
        strFileName = "RecordPDF" & Format(Now(), "yyyymmddhhnnss")
    End If
    
    'Aggiungi l'estensione del file PDF al nome del file
    strFileName = strFileName & ".pdf"
    
    'Crea il percorso completo del file PDF utilizzando il percorso della cartella selezionata e il nome del file
    strFilePath = strFolderPath & "\" & strFileName

    
    'Controlla se il file esiste già nella cartella selezionata
    If Dir(strFilePath) <> "" Then
        If MsgBox("Il file esiste già. Vuoi sovrascriverlo?", vbQuestion + vbYesNo, "File esistente") = vbNo Then
            Exit Sub 'L'utente ha scelto di non sovrascrivere il file
        End If
    End If
    
    On Error GoTo ErrorHandler
    
    'Esporta il record corrente come file PDF utilizzando il percorso completo del file creato in precedenza
    DoCmd.OutputTo acOutputReport, "Clienti", acFormatPDF, strFilePath, False
    
    'Mostra un messaggio di conferma
    MsgBox "Il record è stato salvato come file PDF nella cartella selezionata."
    
ExitProcedure:
    Exit Sub

ErrorHandler:
    MsgBox "Si è verificato un errore durante il salvataggio del record come file PDF." & vbCrLf & vbCrLf & "Errore " & Err.Number & ": " & Err.Description, vbExclamation + vbOKOnly, "Errore"
    Resume ExitProcedure

End Sub

qualcuno saprebbe dirmi dove sto sbagliando?

Grazie