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.

    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
Cevapla
#3
(18/10/2020, 19:56)ozanakkaya yazdı: 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, 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
Task