[Tasos]

Καλησπέρα φίλε Άμι (ελπίζω να γράφω σωστά το όνομα σου)!

Μπορείς να χρησιμοποιήσεις ή να προσαρμόσεις τον παρακάτω κώδικα για να μην συναντήσεις ποτέ πια τέτοιου είδους προβλήματα:

Option Compare Database
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub ExportSpreadSheet()
    Dim xlFileName$, xlFolder$
    xlFolder = "C:\Temp\"    ' xlFolder = Environ("TEMP") & "\" 'xlFolder = CurrentProject.Path & "\"
    MakeSureDirectoryPathExists xlFolder
    xlFileName = xlFolder & "(" & combo & Replace(Format(Now, "-dd_hh:mm:ss"), ":", "_") & ".xls"
    DoCmd.TransferSpreadsheet acExport, , "qryTblMonth", xlFileName, True
End Sub

Ελπίζω να σε βοηθήσει.

Φιλικά

Τάσος