Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/02/2019 17:53
Konu Sahibi
access acemisi
Yorumlar
13
Okunma
807
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
Çözüldü 
Değerli arkadaşlar

Vaaz tablosunda ,anahtar_kelime alanında girilen kelimelerin sayısını, oluşturulacak yeni bir sorguda bulmak istiyorum. Örneğin oluşturduğum sorguda , Bayrak kelimesi 1. Ve 2. Satırda, girildiği görülüyor. Toplamda 2 rakamını aşağıdaki şekilde görmek istiyorum Saygılarımla

[Resim: do.php?img=8880]



haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.024
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,12:23
yeni bir tablo ekleyip kelimeleri ve sayılarını ona tanımladım
dilerim işinize yarar.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba, ekli örnekteki srg_veriler isimli sorgu, 3 kelimeye kadar verileri parçalayıp alt alta yazdırır, srg_kelimesayilari isimli sorgu ise bu kelimeleri sayar.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
(25/02/2019 12:24)ozanakkaya Adlı Kullanıcıdan Alıntı: srg_kelimesayilari isimli sorgu ise bu kelimeleri sayar
Sn ozanakkaya Çalışmanızı tekrar inceliyorum. 3  nolu cevabınızda ,en son gönderdiğiniz dosyada ,ramazan kelimesi 3 defa yazılı gözüktüğü halde 2 saymış.Ben tekrar bir ramazan kelimesi daha ilave ettiğim halde saymadı nedendir acaba.Bir kez daha inceleyebilir misiniz.Saygılar



haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.024
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,12:23
index oluşturma 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
52
53
54
Private Sub BtnEndxSay_Click()
Dim KelimeSay As New ADODB.Recordset
Dim TxtIndex, TxtIndex2, SqlKelime, txtKelimeSay, saygec As String
Dim IndexDizi() As String
TxtIndex = ""
TxtIndex2 = ""
SqlKelime = "SELECT [anahtar_kelime]  FROM vaaz ;"

KelimeSay.Open SqlKelime, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If KelimeSay.RecordCount <= 0 Then GoTo 10
    KelimeSay.MoveLast
    KelimeSay.MoveFirst
        Do Until KelimeSay.EOF
             TxtIndex = TxtIndex & KelimeSay.Fields(0) & " "
             KelimeSay.MoveNext
        Loop

IndexDizi = Split(Trim(TxtIndex))
TxtIndex = " " & IndexDizi(0) & " "
TxtIndex2 = " " & IndexDizi(0) & " "
    For X = LBound(IndexDizi) + 1 To UBound(IndexDizi)
        
        TxtIndex = IIf(InStr(TxtIndex, " " & IndexDizi(X) & " ") = 0, TxtIndex & IndexDizi(X) & " ", TxtIndex)
        TxtIndex2 = TxtIndex2 & IndexDizi(X) & " " 'bu satır tek değişti TxtIndex2 yerine TxtIndex yazılmış yanlışlıkla
    Next

    IndexDizi = Split(Trim(TxtIndex))
    '________Sırala__________________
     For X = LBound(IndexDizi) To UBound(IndexDizi)
    For y = X To UBound(IndexDizi)
      If UCase(IndexDizi(y)) < UCase(IndexDizi(X)) Then
        TempTxt1 = IndexDizi(X)
        TempTxt2 = IndexDizi(y)
        IndexDizi(X) = TempTxt2
        IndexDizi(y) = TempTxt1
      End If
     Next y
  Next X
  '___________sırala son
    
    CurrentDb.Execute " DELETE * FROM [TblEndx];"
    For X = LBound(IndexDizi) To UBound(IndexDizi)
    saygec = Trim(TxtIndex2)
    txtKelimeSay = UBound(Split(saygec, IndexDizi(X)))
   
    CurrentDb.Execute " INSERT INTO [TblEndx]([EndxKelime], [EndxSay])" & _
                         " VALUES (' " & IndexDizi(X) & "', '" & txtKelimeSay & "');"

    Next
10
KelimeSay.Close
Set KelimeSay = Nothing
DoCmd.OpenQuery "sorgu"
End Sub



access acemisi

Gümüş Üye
38814
Ce.... Çe....
 58
 77
 399
 24/08/2011
0
 Çankırı
 Emekli
 Ofis 2016 64 Bit
 23/04/2019,13:37
Sn haliliyas böle bir hata verdi
[Resim: do.php?imgf=74e04de634c71.png]




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Kaç Kelime Ve Sayı Yazınca Yakın Olanları Göstermesi prestij06 5 329 14/04/2019, 00:00
Son Yorum: prestij06
Çözüldü Whatsapp Link İle Mesaj Gönderirken Tüm Metin Değil İlk Kelime Gidiyor zetyu 3 416 18/12/2018, 22:20
Son Yorum: ates2014
Çözüldü Metin İcerisinde Gecen İki Kelime Arasındaki Veriyi Bulmak accessdelisi 2 186 23/10/2018, 04:25
Son Yorum: accessdelisi
Çözüldü Form İçinde Tekrar Kaydı Engellemek ALTANs 15 856 10/07/2018, 21:11
Son Yorum: mehmetdemiral
Çözüldü Excel'den Access'e Veri Aktarırken Tekrar Eden Kayıtları Aktarmasını Engelleme metbal 6 635 22/06/2018, 15:48
Son Yorum: ozanakkaya

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