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