AccessTr.neT

merhaba arkadaşlar,
access de pdf oluştururken outputto hatası veriyor, farklı olarak nasıl bir yöntem kullanmalıyım acaba?

DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", acFormatPDF, "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf", False

DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", "PDFFormat(*.pdf)", "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf", False

Merhaba, eklediğiniz kodda hata yok, ancak daha önceden oluşturulmuş Dokumaya İplik Sevki.pdf isimli dosya var ise kodu tekrar çalıştırdığınızda hata verecektir.

modüle aşağıdaki kodları ekle

Public Function FileExists(ByVal path_ As String) As Boolean

    FileExists = (Len(Dir(path_)) > 0)

End Function

butonda pdf oluşturma kodunu aşağıdaki ile değiştir.

Dim GDosyaDizin As String



GDosyaDizin = "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf"



    If FileExists(GDosyaDizin) = True Then

    

    Kill GDosyaDizin

    

    End If



DoCmd.OutputTo acOutputReport, "DOKUMAYA_IPLIK_GONDER", acFormatPDF, GDosyaDizin, False

Dosya daha önceden oluşturulmuş ise siler, tekrar oluşturur.

evet, masa üstünde oluşturulmuş pdf dosya var.

oluşturulan dosyayı mail ile gönderim yapıyorum,
mail ile gönderim yapınca mail sonrası dosyayı sildirirsem aynı kod ile de devam edebilirim o zaman,

yarın işyeri bilgisayarında deneyip, olumlu olumsuz dönüş yaparım,
çok teşekkür ederim,
iyi çalışmalar

mail gönderimini tamamladıktan sonra

Kill "C:\Users\" & Environ("username") & "\Desktop" & "\Dokumaya İplik Sevki.pdf"

kodu kullanabilirsiniz