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ı.