Geëxporteerd bestand voorzien van een datumstempel

[nieko]

Ik heb het zelfde probleem maar ik kom niet uit de beschreven oplossing.

De VBA code is momenteel:

Option Compare Database

'------------------------------------------------------------
' BackupPlanco
'
'------------------------------------------------------------
Function BackupPlanco()
On Error GoTo BackupPlanco_Err

DoCmd.OutputTo acOutputQuery, "Q planco (PEOPLESOFT)", "ExcelWorkbook(*.xlsx)", "R:\CE\ALG\Planning en Control\Deelnemers\1112\Tellingen\Studenten\telling.xlsx", False, "", , acExportQualityScreen


BackupPlanco_Exit:
Exit Function

BackupPlanco_Err:
MsgBox Error$
Resume BackupPlanco_Exit

End Function

Hoe kan ik zorgen dat het bestandje telling.xlsx de naam krijgt telling25082011.xlsx en morgen telling26082011?

 

[OctaFish]

Zo:

Function BackupPlanco()
On Error GoTo BackupPlanco_Err

Dim DataStempel As String
DataStempel = "telling" & Format(Date, "ddMMyyyy") & ".xlsx"

DoCmd.OutputTo acOutputQuery, "Q planco (PEOPLESOFT)", "ExcelWorkbook(*.xlsx)", _
    "R:\CE\ALG\Planning en Control\Deelnemers\1112\Tellingen\Studenten\" & DataStempel & ", False, "", , acExportQualityScreen"

Exit Function

BackupPlanco_Err:
MsgBox Error$

End Function

 

[nieko]

Ik krijg de volgende foutmelding:

De uitvoergegevens kunnen vanuit microsoft access niet worden opgeslagen in het bestand dat u hebt geselecteerd.

 

[OctaFish]

Deed hij het wel met een vaste naam? Zo ja; vraag eens met een msgbox op wat er in de variabele staat?

 

[nieko]

Ja hij deed het wel met een vaste naam. Hoe maak ik een msgbox aan?

 

[OctaFish]

Het ligt niet aan de bestandsnaam, die is wel goed. Na wat experimenteren kreeg ik 'm wel goed:

DoCmd.OutputTo acOutputQuery, "q_Planco_PEOPLESOFT", "ExcelWorkbook(*.xlsx)", "R:\CE\ALG\Planning en Control\Deelnemers\1112\Tellingen\Studenten\" & DataStempel, False

 

[nieko]

Je bent geweldig. Het werkt. Dank je wel!!