Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/12/2013 23:12
Konu Sahibi
kesoka
Yorumlar
8
Okunma
2769
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kesoka

Aktif Üye
Kullanici Avatari
Aktif Üye
267
28/02/2009
20
Denizli
Ofis 2003
09/06/2017,19:48
Çö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
267
28/02/2009
20
Denizli
Ofis 2003
09/06/2017,19:48
Çö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
267
28/02/2009
20
Denizli
Ofis 2003
09/06/2017,19:48
Çö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
Çözüldü Sorguda Detay Ve Sonuçların Rapora Alt Bilgi Olarak Aktarılması Sorunu cemre1970 4 239 09/06/2017, 08:23 cemre1970
Çözüldü Html Kodlarını Bir Formda Düzenlenmiş Olarak Göstermek bordoblue 4 309 02/06/2017, 14:22 bordoblue
Çözüldü Worde Aktarımda Ön İzmele Ve Wordü Otomatik Kaydetme derzulya 6 474 25/05/2017, 14:42 ozanakkaya
Çözüldü Access Raporlamasını Pdf Olarak Kaydetme adaletinsesi 4 417 13/05/2017, 12:25 atoz112
Çözüldü Raporu Pdf Olarak Kayıt etmek m_demir 10 990 21/04/2017, 23:46 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.