DoCmd.SetWarnings False
If IsNull(Me.AKAramaGecmisi) Then GoTo 10
xicerik = Trim(Me.AKAramaGecmisi.Column(0))
''____________________________kısa Süre __________
If OnayAnahtar.Value = True Then
Xvarsay = "[anahtar_kelime]"
XKriter = Replace(Trim(xicerik), " ", "*' or (" & Xvarsay & ") Like '*")
SQLicerik = " SELECT Sum(nz(vaaz.dk,0)) AS Topladk" & _
" FROM vaaz" & _
" WHERE (((sec)=True) AND ((" & Xvarsay & ")" & _
" Like '*" & XKriter & "*' ));"
Set RecordSt = CurrentDb.OpenRecordset(SQLicerik)
RecordSt.MoveFirst
DoCmd.RunSQL " UPDATE vaazplan" & _
" SET dakika =" & RecordSt.Fields(0) & _
" WHERE id_vaazplan =" & Me.AKAramaGecmisi.Column(3)
RecordSt.Close
Set RecordSt = Nothing
End If
'____________________________kısa Süre bitiş_____
'____________________________uzun süre___________
If OnayAnahtar.Value = False Then
Xvarsay = "[anahtar_kelime] & ' ' & [metin]"
XKriter = Replace(Trim(xicerik), " ", "*' or (" & Xvarsay & ") Like '*")
SQLicerik = " SELECT Sum(nz(vaaz.dk,0)) AS Topladk" & _
" FROM vaaz" & _
" WHERE (((sec)=True) AND ((" & Xvarsay & ")" & _
" Like '*" & XKriter & "*' ));"
Set RecordSt = CurrentDb.OpenRecordset(SQLicerik)
RecordSt.MoveFirst
DoCmd.RunSQL " UPDATE vaazplan" & _
" SET UzunDk =" & RecordSt.Fields(0) & _
" WHERE id_vaazplan =" & Me.AKAramaGecmisi.Column(3)
RecordSt.Close
Set RecordSt = Nothing
End If
'____________________________uzun süre bitiş_____
DoCmd.OpenForm "vaazplan", acFormDS
Exit Sub
10 MsgBox ("lütfen konu seçiniz?")
Me.AKAramaGecmisi.SetFocus
süre hesaplama butonunun kodunu aşağıdaki ile değiştirip dener misiniz?
