sayın sadikkavakli,

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.