AccessTr.neT

süre hesaplama butonunun kodunu aşağıdaki ile değiştirip dener misiniz?

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

(05/03/2019, 22:31)haliliyas yazdı: [ -> ]değiştirip dener misiniz?

teşekkür ederim güzel çalıştı  saygılar

Değerli üstadlarım
Bu konuyu açtığımda a ve b şıklı isteğimi arzetmiştim. a tamam oldu.
b için Şöyle demiştim
FrmAra formunda kayıtlı konu seçimi yapıldığında seçili olanların (işaretlilerin) dışındaki verilerin, gözükmemesi için,FrmAra formuna FrmYeni butonu ekledim Bununla FrmYeni formu açılıyor. FrmYeni  formunda ,FrmAra formundan ,seçilen konunun verilerinden, sadece evet işaretlilerin bu forma getirilmesini istiyorum...Değişik ifadeyle rapordaki benzer tasarımın formda gözükmesini istiyorum.Saygılarımla