AccessTr.neT

https://accesstr.net/konu-raporu-pdf-ola...#pid137770 linkteki konuda;

ozanakkaya Adlı Kullanıcıdan Alıntı: yazdı:Dim PencereAc As FileDialog Dim AktarilanBelge As Variant 
Set PencereAc = Application.FileDialog(msoFileDialogSaveAs)    
   With PencereAc        .Title = "Rapor Kaydet"        .InitialFileName = "Genel Rapor " & Format(Now(), "ddmmyyyyhhnn") & ".pdf"        
       If .Show = True Then        
           For Each AktarilanBelge In .SelectedItems                DoCmd.OutputTo acOutputReport, "GenelRapor", acFormatPDF, AktarilanBelge & ".pdf", True            Next AktarilanBelge        Else            MsgBox "Dosya seçilmedi"        End If    End With

PDF olarak kaydetmek için verdiğiniz yukarıdaki kodu, bu projeden bağımsız olan Formumda buton oluşturup tıkladığında olayına ekledim. Fakat şu uyarıyı veriyor;
PencereAc As FileDialog seçili bir şekilde : compile errror: user defined type not defined
Modül mü eklemem lazım.

sayın mehmetb84,

Alıntı:yukarıdaki kodu, bu projeden bağımsız olan Formumda buton oluşturup tıkladığında olayına ekledim.

muhtemeldir ki,
bahsettiğiniz talebinize yönelik paylaşılacak bilgilendirmeler akabinde,mesaj artışı söz konusu olabilir düşüncesi ile buna engel olmak için,
kodları adapte ettiğinizi beyan ettiğiniz örnek uygulamanızı eklediğiniz takdirde bu örnek üzerinden yorumlarda bulunmak daha geçerli ve uygun olacaktır.

Site Kuralları gereği,lütfen örnek uygulamanızı dahil etmeyi ihmal etmeyiniz.teşekkürler.

son olarak;
çözüm için ihtimallerden biri de,referanslarınızı kontrol ediniz.

bilginize...iyi çalışmalar,saygılar.

Veritabanı dosyamı da ekledim.

sayın mehmetb84,

kendi adıma olmak üzere,eklediğiniz örnek uygulama üst sürüm olması nedeni ile inceleme imkanım söz konusu değil fakat,

bir önceki mesajda da belirtildiği üzere,referanslarınızı kontrol ediniz ve FILE DIALOG işlevinin geçerli olması için gerekli olan Microsoft Office XX.X Object Library referansının kendi sürümünüze uygun olanını listeden bulup işaretleyip bu şekilde kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.

işe yaradı teşekkürler.