Using one of your suggestions it was very easy. Thanks a lot.
Code:
Private Sub Command16_Click()Dim outputFileName As String
Dim ExportProject As String
ExportProject = Me!TSJob
Me!txtcounter = Me!txtcounter + 1
Dim MyPath As String
MyPath = "\server\Exported Project Hours\" & ExportProject & "\"
If Len(Dir(MyPath, vbDirectory)) = 0 Then
MkDir MyPath
End If
outputFileName = "\server\Exported Project Hours\" & ExportProject & "\" & ExportProject & "-EXPORT-" & Format(Date, "dd-MM-yyyy") & "(" & Me!txtcounter & ")" & ".xls"
If Not Dir(outputFileName, vbDirectory) = vbNullString Then
MsgBox "exists"
boolRestart = True
Command16_Click
Else
MsgBox "does not exist"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "exportProjectBreakdown", outputFileName, True
End If
Debug.Print ExportProject
Debug.Print outputFileName
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table1", outputFileName, True
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table2", outputFileName, True
End Sub