2010 sürümünü kullanıyorum. 2013 de de denedim yine sorun yok. şöyle birşey olsada olur.
c:/rapor/ klasöründeki rapor.pdf dosyasının ismini tablodaki isimle değiştiren bir modül de olabilir. gerisi ben çözebilirim.
Bir global değişken tanımlayın. Bunun için bir modüle
global yenidosyaadi as string
gibi bir satır girip kaydedin. Daha sonra programın herhangi bir formundaki bir düğmeyle mevcut tablodaki dosya adını bu değişkene aktarın. Bunu bir formdaki bir metin kutusuna getirerek yapabilirsiniz. Daha sonra bir düğme yordamına
yenidosyaadi = metin1
gibi yazarak bu değeri değişkene atarsınız. Bir düğmeyle de artık dosya adını değiştirin. Bunun için ayrı bir düğme de kullanılabilir aynı düğmeyle de yapılabilir. Komut
Name yenidosyaadi.pdf As c:\rapor\rapor.pdf
olmalıdır.
yapmayı denedim ama malesef başaramadım. örnek bir uygulama olursa onun üzerinde yapabilirim diye düşünüyorum.
modülde şöyle birşey yaptım. ama buradaki yeni ad kısmı tablodaki adı çekmesi gerekiyor.
aşağıdaki şekilde Raporrrlar.pdf olarak değiştiriyor.
Public Function ver()
Dim eskiad As String
Dim yeniad As String
eskiad = _
"D:\DAĞITIM\Saha - pdf\Hazır/Rapor.pdf"
yeniad = _
"D:\DAĞITIM\Saha - pdf\Hazır/Raporrrlar.pdf"
Name eskiad As yeniad
End Function
Modüldeki kodları aşağıdaki ile değiştir
Public Function Ver()
DoCmd.OutputTo acOutputReport, "rapor", "PDFFormat(*.pdf)", "C:\rapor\" & Dlookup ("[Rapor Adı]", "VERİ") & ".pdf", True, , , acExportQualityPrint
End Function
(21/03/2013, 21:16)ozanakkaya yazdı: Modüldeki kodları aşağıdaki ile değiştir
Public Function Ver()
DoCmd.OutputTo acOutputReport, "rapor", "PDFFormat(*.pdf)", "C:\rapor\" & Dlookup ("[Rapor Adı]", "VERİ") & ".pdf", True, , , acExportQualityPrint
End Function
çok teşekkür ederim. verdiğiniz kod çalıştı.