Hallo Experten
Ich habe eine VBA für einen Berichtsexport nach rtf. Ich möchte nun, dass der Bericht im Snapshotformat abgespeichert wird. Dateiname müsste jeweils die Mitarbeiter-ID sein, also z.B 58.snp.
Wie geht das?
Private Sub btnDruck_Click()
Dim strSQL As String
’ Nötig, weil btnDruck disabled wird
Forms!frmPersonal!btnClose.SetFocus
If MsgBox(„Möchten Sie die Getränkerechnung für den ausgewählten Mitarbeiter drucken?“ _
& vbCrLf & „Alle vorhandenen Datensätze werden nach Rechnungserstellung gelöscht!“, _
vbQuestion + vbOKCancel, „Getränkerechnung“) = vbOK Then
DoCmd.OutputTo acOutputReport, „repGetraenkeRechnung“, acFormatRTF, „text.rtf“, , "PersonalID = " & Me.PersonalID
'Warnmeldungen aus
DoCmd.SetWarnings False