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.