Dim MtnAdres As String
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
'Optional: FileDialog properties
fDialog.title = "Dosyanın kaydedileceği yeri seçin"
fDialog.InitialFileName = "C:\"
If fDialog.Show = -1 Then MtnAdres = fDialog.SelectedItems(1)
DoCmd.OutputTo acOutputReport, "rpr_son1", acFormatPDF, MtnAdres & "\" & Me.ad & ".pdf"Raporları Pdf Olarak Kayıt
aynı hatayı alıyorum siz denediniz mi uygulama üzerinde? denenmiş halini atar mısınız?
ekte yolladım
kurslar.rar
(Dosya Boyutu: 35,13 KB | İndirme Sayısı: 8)
Pdf kaydetme kodunuzun son halini bilmiyorum.
Referanslara "microsoft Office XX.0 Object Library" isimli referansı ekle,
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
microsoft Office XX.0 Object Library sizin attığınız son mesajdaki resimde işaretli olanlar arasında üstten 2.olan değil mi??
Sizin işaretlediğiniz ile microsoft Office XX.0 Object Library söylediğiniz aynı değil sanki yanılıyor muyum??
Kafam karıştı microsoft Office XX.0 Object Library olansa ekli zaten, microsoft Office 15.00 Access databese....olan ise bunu demediğiniz için eklemedim bu mu eklenecekti??
Referanslara "microsoft Office XX.0 Object Library" isimli referansı ekle,
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
microsoft Office XX.0 Object Library sizin attığınız son mesajdaki resimde işaretli olanlar arasında üstten 2.olan değil mi??
Sizin işaretlediğiniz ile microsoft Office XX.0 Object Library söylediğiniz aynı değil sanki yanılıyor muyum??
Kafam karıştı microsoft Office XX.0 Object Library olansa ekli zaten, microsoft Office 15.00 Access databese....olan ise bunu demediğiniz için eklemedim bu mu eklenecekti??
Konuyu Okuyanlar: 1 Ziyaretçi
