Skip to main content

AccessTr.neT


Pdf Oluştururken Outputto Hatası

Pdf Oluştururken Outputto Hatası

Çözüldü #1
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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
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.
Cevapla
#3
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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 05/08/2022, 19:33, Düzenleyen: husem.
Cevapla
#4
mail gönderimini tamamladıktan sonra

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

kodu kullanabilirsiniz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task