Skip to main content

AccessTr.neT


Tablodaki Satırlardaki Karakter Adedi Bulma

Tablodaki Satırlardaki Karakter Adedi Bulma

#22
Evet berduş hocam sonuç vedi sadece +1 e gerek yok.

Birde sorguya sonuçları aktarmak kaldı geriye yani virgülle ayrılmış halleri.

Biraz uğraşaım.

Bende alttaki gibi döngü ile kod yapmıştım.



Private Sub Komut0_Click()
   
    Dim rs As Recordset, kes As String , y As Integer
    Dim scr As Object
   
    Set rs = CurrentDb.OpenRecordset("select Alan1 from Tablo1 where Alan1 like '*,*'")
    Set scr = CreateObject("Scripting.Dictionary")
   
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
       
            kes = rs(0)
            For y = 1 To Len(kes)
                If Mid(kes, y, 1) = "," Then say = say + 1
            Next
            If Not scr.Exists(say) Then scr.Add say, ""
            say = 0
            rs.MoveNext
        Loop
    End If
   
    bubble_sort (scr.Keys)

    rs.Close
    Set rs = Nothing
    Set scr = Nothing
   
End Sub

Function bubble_sort(arr)
    Dim x As Long, y As Long
   
    For x = 0 To UBound(arr) - 1
        For y = x To UBound(arr) - 1
            If CDbl(arr(x)) < CDbl(arr(y)) Then
                temp = arr(x)
                arr(x) = arr(y)
                arr(y) = temp
            End If
        Next
    Next
  bubble_sort = arr
  MsgBox arr(0)
End Function
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Tablodaki Satırlardaki Karakter Adedi Bulma - Yazar: feraz - 28/03/2020, 21:22
Task