+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ölçüte Göre Pdf Çıktı (/konu-olcute-gore-pdf-cikti.html)
Ölçüte Göre Pdf Çıktı - notrino - 18/10/2020
Merhabalar,
Ekli örneğimde Formdaki Komut11 butonuna basınca raporumu gayet güzel pdf çıktı olarak alıyorum. Ancak ben tüm kayıtları değil, o an formda hangi kimlik değeri varsa o kimliğe ait verilerin çıktısını pdf olarak almak istiyorum. Yani kritere göre sorgu çalışacak ve raporda çıktı verecek. DoCmd ile ilgili uygulamalarda
Kod:
"[Kimlik]=" & Me.KimlikRE: Ölçüte Göre Pdf Çıktı - ozanakkaya - 18/10/2020
Docmd.outputto işlecine kriter ekleyemezsiniz.
Önce raporu açtırmanız daha sonra dışa aktarmanız gerekli.
Dim GRaporAdi As String
Dim GPdfDosya As String
Dim GKriter As String
GRaporAdi = "Tablo1"
GPdfDosya = CurrentProject.Path & "\Tablo1.pdf"
GKriter = "Kimlik = " & Me.Kimlik
DoCmd.OpenReport GRaporAdi, acViewPreview, , GKriter, acHidden
DoCmd.OutputTo acOutputReport, GRaporAdi, acFormatPDF, GPdfDosya
DoCmd.Close acReport, GRaporAdi, acSaveNoRE: Ölçüte Göre Pdf Çıktı - notrino - 18/10/2020
(18/10/2020, 19:56)ozanakkaya yazdı: Docmd.outputto işlecine kriter ekleyemezsiniz.Evet. şimdi daha iyi anladım. Çok teşekkürler.
Önce raporu açtırmanız daha sonra dışa aktarmanız gerekli.
Dim GRaporAdi As String
Dim GPdfDosya As String
Dim GKriter As String
GRaporAdi = "Tablo1"
GPdfDosya = CurrentProject.Path & "\Tablo1.pdf"
GKriter = "Kimlik = " & Me.Kimlik
DoCmd.OpenReport GRaporAdi, acViewPreview, , GKriter, acHidden
DoCmd.OutputTo acOutputReport, GRaporAdi, acFormatPDF, GPdfDosya
DoCmd.Close acReport, GRaporAdi, acSaveNo