Skip to main content

AccessTr.neT


Pdf Adını Veriye Göre Oluşturmak

Pdf Adını Veriye Göre Oluşturmak

#7
butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.


 Dim objCDOMailz As Object
Dim klasorAdres, GBelge, GZaman As String
   Set objCDOMailz = CreateObject("CDO.Message")
   
   
   klasorAdres = CurrentProject.path & "\gonderi" 'dosya yolu
   GBelge = CurrentProject.path & "\RYENiNeSiL.pdf"
   GZaman = Replace(Metin10, ":", ".")
   
   
   If Dir(klasorAdres, vbDirectory) = "" Then MkDir klasorAdres
   
   objCDOMailz.Addattachment GBelge   ' eğer isterseniz eklenecek dosya
   
   FileCopy GBelge, CurrentProject.path & "\gonderi\" & Me.Metin50 & "-" & GZaman & ".pdf"
   
   Kill GBelge
     

   Set objCDOMailz = Nothing
MsgBox "pdf ok"
Cevapla
#8
(03/03/2019, 09:30)haliliyas yazdı: siz herhangi bir eklenti yüklediniz mi ben de şimdi de CDO referans hatası verdi
bende yüklü accesste "microsoft cdo 1.2 library" yok maalesef?

hayır hocam sadece yukarıda verdiğim 2 tane dll  yükledim sistem32 ye attım.
ama örnek içinde modReportToPDFX  modülü var. 
 
modülde kodun bir kısmında aşağıdaki kod var bilginize


    Else
        sOutFile = CurrentProject.path & "\RYeniNesil.pdf"
        'CurrentProject.Path & "\YeniNesil.pdf"
    End If
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 03/03/2019, 20:29, Düzenleyen: zetyu.
Cevapla
#9
Benim yazdığım cevaplar okunmuyor mu??
Cevapla
#10
(03/03/2019, 20:30)ozanakkaya yazdı: Benim yazdığım cevaplar okunmuyor mu??

Estafurullah Ozan Hocam aksine,Hocam  yıllarca verdiğiniz kodlardan çok faydalandım.
Cevap vermeme bir yana sizin benim sorumu cevaplama nezaketiniz için teşekkür ederim.

Verdiğiniz kod ile pdf adını verilere göre kaydedebiliyorum sorun çözülmüştür.

örneği düzenlenmiş haliye değiştiriyorum.

Ellerinize sağlık teşekkür ederim.
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 04/03/2019, 00:05, Düzenleyen: zetyu.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task