(13/01/2017, 10:57)atoz112 yazdı: sayın nightashes,
aşağıdaki açıklamaların yapılması uygun görülmüştür.
1)
Alıntı:kayıt yerini sormadan belgelerime kayıt etmekte.
ifadenize yönelik olarak;
("Hammadde Listeleri - " & Date & ".xls") olarak yazdığınızdan ve bir yol belirlemediğinizden dolayı,direkt olarak Belgelerim klasörüne aktarır.
naçizane bir tavsiye olması adına,
eğer kayıt yeri olarak sürekli değişen veya her seferinde farklı bir durum söz konusu olmayacaksa,mesaj iletileri ile bunun için zaman kaybedip yanıt vermektense,
kod satırını kullanmanız yerinde olacaktır kanısındayım.Kod:DoCmd.OutputTo acOutputReport, "R_HMMD_1", acFormatXLS, CurrentProject.Path & "\" & "Hammadde Listeleri - " & Date & ".xls", True
CurrentProject.Path & "\" kod ifadesi;
uygulamanın yer aldığı klasörün içerisine aktarması anlamındadır.eğer bu klasörün içerisinde bir rapor toplama klasörü de mevcutsa ve burada raporları toplamak isterseniz,bu kod ifadesinde bir ekleme yapmak sureti ile,
CurrentProject.Path & "\" & "rapor_klasoru" & "\" şeklinde yazmanız yeterlidir.
2)
son olarak;
raporun dönüştürülmesi sonrasında açılıp açılmamasını,sondaki TRUE / FALSE ifadesi belirler.burada önemli olan,raporu işlem bittikten sonra görmeyi isteyip istememeniz için vereceğiniz kararınızdır.
eğer FALSE yazarsanız,işlem bittikten sonra sonucu göstermez.TRUE yazarsanız gösterir.
elbette ki,bunlar bilgilendirme amaçlı düşünce paylaşımıdır.tercih ve takdir sizindir.bilginize...iyi çalışmalar,saygılar.
Sayın atoz cevabınız için teşekkür ederim. Dediğiniz gibi oluyor currentpath i kullandığımız zaman ama benim yapmak istediğim kullanıcıya bırakmak kayıt yerini. Nasıl bir dosyayı download ederken bize kayıt yerini seçtiriyorsa benimde amacım bunu kullanıcıya bırakmak.
True veya False olarak değilde bunuda kullanıcıya bırakmak istedim ben. Yani;
If MsgBox ("Görüntülensin mi?", vbYesNo + vbQuestion)
VbYes then true
VbNo then false
gibi yani tam nasıl olacak bilmiyorum ama kısmen bu şekil gibi. Saygılar.
Düzeltme :
Kod:
Private Sub btn_pdfaktar_Click()
If MsgBox("Oluşturulan rapor açılsın mı?", vbYesNo, "Rapor Açma") = vbYes Then
DoCmd.OutputTo acOutputReport, "R_HMMD_1", acFormatPDF, ("Hammadde Listeleri - " & Date & ".pdf"), True
Else
DoCmd.OutputTo acOutputReport, "R_HMMD_1", acFormatPDF, ("Hammadde Listeleri - " & Date & ".pdf"), False
End If
End SubAklım daha çok dim yapıp yapmaya endeksliydi böyle biraz uzun ve ikileme gibi oldu ama oldu yani.
Teşekkürler
