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
Rapor_Pdf butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyin, olmaz ise örnek uygulamanızı ekleyin.