sadece bir bilgilendirme olması ve tercihinize göre istediğiniz takdirde kullanılması amacı ile naçizane tavsiye olması üzerine,bu kodlara bir de;
EK olarak gönderilmek istenen dosyanın mevcut olup olmadığının ve eğer yoksa oluşturulmasını sağlatmayı da dahil edebilirsiniz.
bunun için;
DoCmd.OutputTo acReport, "Raporla", acFormatPDF, dosyaadi, False
kod satırını etkisizleştirip (kullanmayıp) yerine,
If Len(Dir(Application.CurrentProject.Path & "\" & "Raporla" & ".pdf")) = 0 Then
DoCmd.OutputTo acOutputReport, "Raporla", acFormatPDF, CurrentProject.Path & "\" & "Raporla" & ".pdf", False
Else
End If
kodlarını kullanmak sureti ile,eğer dosya varsa herhangi bir işlem yapmayacak,eğer dosya yoksa öncesinde oluşturacak sonra EK olarak kullanılacak halde olmasını sağlatabilirsiniz.
bilginize...iyi çalışmalar,saygılar.