AccessTr.neT

Bul · 04/08/2022, 19:03

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

Bul · 05/08/2022, 18:30

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.

Bul · 05/08/2022, 19:31

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

Bul · 05/08/2022, 21:52

mail gönderimini tamamladıktan sonra

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

kodu kullanabilirsiniz

AccessTr.neT

Pdf Oluştururken Outputto Hatası

Pdf Oluştururken Outputto Hatası

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri