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

18/10/2020, 18:59

notrino

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.
18/10/2020, 19:56

ozanakkaya

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
18/10/2020, 22:55

notrino

(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.