AccessTr.neT
Kelime Tekrar Tespiti - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kelime Tekrar Tespiti (/konu-kelime-tekrar-tespiti.html)

Sayfalar: 1 2 3


Kelime Tekrar Tespiti - access acemisi - 24/02/2019

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]


Cvp: Kelime Tekrar Tespiti - berduş - 25/02/2019

yeni bir tablo ekleyip kelimeleri ve sayılarını ona tanımladım
dilerim işinize yarar.


Cvp: Kelime Tekrar Tespiti - ozanakkaya - 25/02/2019

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.


Cvp: Kelime Tekrar Tespiti - access acemisi - 06/03/2019

(25/02/2019, 12:24)ozanakkaya yazdı: 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


Cvp: Kelime Tekrar Tespiti - berduş - 06/03/2019

index oluşturma butonunun kodunu aşağıdaki ile değiştirip dener misiniz?
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



Cvp: Kelime Tekrar Tespiti - access acemisi - 06/03/2019

Sn haliliyas böle bir hata verdi
[Resim: do.php?imgf=74e04de634c71.png]