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