Non riesco, ho provato in vari modi ma non ho ottenuto nessun risultato.
Provo ad inviarvi il codice:
Private Sub Comando51_Click()
On Error GoTo Err_Comando51_Click
Dim stDocName As String
Dim nome As String
stDocName = "COPIA_COMM_REPORT"
nome = cliente
mystring = CStr(dat)
DoCmd.OutputTo acOutputReport, stDocName, acFormatXLS, mystring & nome & ".xls"
^questo dovrebbe definire il nome del file risultante, ma la parte della data viene saltata completamente e viene messo solo il nome
Exit_Comando51_Click:
Exit Sub
Err_Comando51_Click:
MsgBox Err.Description
Resume Exit_Comando51_Click
End Sub
Attendo consigli!!!! grazie
Matteo