Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/03/2019 16:39
Konu Sahibi
access acemisi
Yorumlar
14
Okunma
509
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
halily

halily

Uzman
65596
ha....
 26
 1.172
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,14:08
süre hesaplama butonunun kodunu aşağıdaki ile değiştirip dener misiniz?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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




access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 13/06/2019,17:43
(05/03/2019 22:31)haliliyas Adlı Kullanıcıdan Alıntı: değiştirip dener misiniz?
teşekkür ederim güzel çalıştı  saygılar



...........
access acemisi

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 13/06/2019,17:43
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 110 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 139 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 313 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü İki Alt Formlu Rapor Önizleme edacan19 4 198 15/05/2019, 13:49
Son Yorum: edacan19
Çözüldü Girilen Sipariş Miktarına Göre Makinanın Üretm Doluluğu gimbo25 7 277 14/05/2019, 14:10
Son Yorum: halily

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.