Rapor_Pdf butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyin, olmaz ise örnek uygulamanızı ekleyin.

Dim SQLAra, XKriter, Xvarsay As String

If IsNull(Me.AKAramaGecmisi) Then GoTo 10

If Me.OnayAnahtar = True Then Xvarsay = "[anahtar_kelime]" Else Xvarsay = "[anahtar_kelime] & ' ' & [metin]"

If IsNull(Me.AKKriter) Then Me.AKKriter.Value = "or"



XKriter = Replace(Trim(Me.AKAramaGecmisi), " ", "*' " & Me.AKKriter & " (" & Xvarsay & ") Like '*")



SQLAra = "SELECT * FROM vaaz WHERE (((sec)=True) AND ((" & Xvarsay & ") Like '*" & XKriter & "*')) ORDER BY sirano"

'DoCmd.OpenReport "RprVaazPlan", acViewNormal, , , , SQLAra

DoCmd.OpenReport "RprVaazPlan", acViewPreview, , , , SQLAra



Exit Sub

10 MsgBox (" Lütfen konu seçiniz")

AKAramaGecmisi.SetFocus