verden oluşan pdf adını tablo daki ismi yazma

1 2
20/03/2013, 10:20

gulendam

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.
20/03/2013, 12:54

mehmetdemiral

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.
21/03/2013, 15:16

gulendam

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
21/03/2013, 21:16

ozanakkaya

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:51

gulendam

(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ı.
1 2