klasör ekletip o klasöre pdf olarak kaydetme
Tarih
17/12/2013 23:12
Konu Sahibi
kesoka
Yorumlar
8
Okunma
2282
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kesoka
Aktif Üye
Kullanici Avatari
Aktif Üye
265
28/02/2009
20
Denizli
Ofis 2003
06/10/2016,23:35
Çözüldü 
Sayın Hocalarım ben programımda yaptığım bir raporu pdf formatında kaydettiriyorum. yalnız şöyle bir şey yapılabilirmi? projemizin olduğu dizinde teklifler adında bir klasörüm var. ben raporumu pdf ye dönüştürürken teklifler klasörüne bugünün tarinde hatta olabilirse bu ayın isminde bir kalsör oluştursun ve oraya kaydetsin.

Dim MyReport As String
MyReport = CurrentProject.Path & "\teklifler\" & Me.adisoyadi & "-" & Me.tcno & ".pdf"
DoCmd.OutputTo acOutputReport, "Personel Dosyası", "PDFFormat(*.pdf)", MyReport, False, "", 0


bu kod ile pdf yapıp teklifler klasörüne kaydediyor.

MkDir CurrentProject.Path & "\" & "teklifler" & "\" & Date
kodlaması ile bugünün tarihinde klasörde ekletiyorum burdada sorun yok fakat bu iki kodu bir butonla kullanıp eğer teklifler klasöründe bugünün tarihinde klasör yoksa ekleyip sonra pdf olarak oraya kaydetmesini sağlayabilirmiyiz.

sadece kodlama ile ilgili olduğu için örnek eklemedim ama gerekli derseniz hemen ekleyebilrim.. teşkler ilginize..
Cevapla


cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
örnek eklerseniz daha iyi olur
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla


kesoka
Aktif Üye
Kullanici Avatari
Aktif Üye
265
28/02/2009
20
Denizli
Ofis 2003
06/10/2016,23:35
Çözüldü 
örnek ektedir. açılan formda listedeki deneme firmasına çift tıkladığınızda teklif formuna gitmektedir. orda şuan kaytılı bir teklif vardır. raporu ön izle butonun komutunda önce klasör oluşturma ardındanda pdf ye dönüştürüp belirtilen klasörde date yani bugün tarihli kalsöre kaydetmesi için bi kod yazdım fakat bugün tarihli klasöre kaydetmiyor. aynı güne ait 2. bir tekli hazıladığımdada date bugün tarihli klasör olduğundan tekrar oluşturmaya çalışıp hata veriyor. burda kalsör oluşturmayı öncelikle date() tarihli klasör yoksa oluştursun şekline getirmeyi yapamadım. tşkler ilgilinize


Ek Dosyalar
.rar   teklif.rar (Dosya Boyutu: 487,66 KB / İndirme Sayısı: 12)
Cevapla


cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
sn kesoka;
Kodu nereye uyguladınız? Birde raporlarda teklif raporu yok... deneme yapamadım.
mkdir'den önce:
On Error Resume Next dener misiniz?

Örnek de ekledim, inceleyin.


Ek Dosyalar
.rar   Denemecttm98.rar (Dosya Boyutu: 1,05 MB / İndirme Sayısı: 18)
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla


kesoka
Aktif Üye
Kullanici Avatari
Aktif Üye
265
28/02/2009
20
Denizli
Ofis 2003
06/10/2016,23:35
Çözüldü 
sayın hocam raporu önzile butonuyla teklif onaylı raporunu pdf olarak kaydettiriyor. ayrıca projenin içinde teklifonayli raporu mevcut. kullandığım kod da şu şekilde raporu önizle butonundaki.

[/vb]Private Sub Komut30_Click()
MkDir CurrentProject.Path & "\" & "teklifler" & "\" & Date
If vbYes = MsgBox("Yazdırılsınmı? Hayır Derseniz Teklif önizleme Yapılacak", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Yazdır / önizle") Then
DoCmd.OpenReport "teklinonayli"
Else
DoCmd.OpenReport "teklifonayli", A_PREVIEW
End If


Dim MyReport As String
MyReport = CurrentProject.Path & "\" & "teklifler" & "\" & Date & Me.sayi & ".pdf"
DoCmd.OutputTo acOutputReport, "teklifonayli", "PDFFormat(*.pdf)", MyReport, False, "", 0
End Sub

burda kullandığım baştaki MkDir İN kullanımı tabi yanlış.
yaptırmaya çalıştığım ise şu
1) raporu önzile butonuna bastığımda projenin bulunduğu yerdeki teklifler klasöründe eğer bugün tarihli bir klasör yoksa eklesin. ama yoksa varsa eklmemiyecek tabi...
2) klasörü ekledikden sonra teklif onaylı raporunu programın bulunduğu yerdeki teklifler klasöründa az önceki kodla oluşturduğumuz date() bugün tarihli klasöre pdf olarak kaydetsin.

sanırım 2003 kullanıyosunuz hocam eklediğiniz örnekde pdf çevirme için dll ler kullanıyorsunu heralde. ben 2007 kullanıyorum.
o yuzden pdf çevirtme yöntemlerimiz farklı sanırım.

umarım ne yapmaya çalıştığımı anlatabilmişimdir. tşkler ilginize
Cevapla


cttm98
Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
sn kesoka;
Office 2007 kullanıyorum profilime bakarsanız göreceksiniz. 2003 kullansaydım zaten eklediğiniz programı açamıyacaktım.
birde eklediğiniz dosyayı açtığımızda iki tane accdb dosyası çıkıyor.
teklif.accdb (raporlar kısmında "teklinonayli" raporu yok zaten.)
teklif - Kopya.accdb
hangisini göz önüne alayım kopya yoksa normali mi?
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Pdf olarak mail gönderme Serkan Çevik 8 172 04/12/2016, 15:17 Serkan Çevik
  Klasöre görerek yedekleme yapmak musteri53 3 115 19/11/2016, 21:30 ozanakkaya
  Klasöre kaydederken,Dosya Adını yazarak yedeklemek musteri53 11 314 18/11/2016, 23:11 ozanakkaya
  Formdaki seçili / aktif kayda göre pdf olarak kaydetmek mehmetb84 3 157 07/11/2016, 14:08 mehmetb84
  raporu pdf olarak kayıt etmek mehmetb84 4 123 04/11/2016, 14:22 mehmetb84


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya