Skip to main content

AccessTr.neT


Ölçüte Göre Pdf Çıktı

Ölçüte Göre Pdf Çıktı

Çözüldü #1
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.Kimlik

şeklindeki kriterle bu yapılıyor ama örneğimdeki kodun içine bu kodu yediremedim. Yerdımcı olur musunuz? Tşk.

.zip Kimlikle_Pdf.zip (Dosya Boyutu: 57,52 KB | İndirme Sayısı: 2)
Cevapla
#2
Docmd.outputto işlecine kriter ekleyemezsiniz.

Önce raporu açtırmanız daha sonra dışa aktarmanız gerekli.

Visual Basic Code
    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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(18/10/2020 19:56)ozanakkaya Adlı Kullanıcıdan Alıntı: Docmd.outputto işlecine kriter ekleyemezsiniz.

Önce raporu açtırmanız daha sonra dışa aktarmanız gerekli.

Visual Basic Code
    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

Evet. şimdi daha iyi anladım. Çok teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da