Skip to main content

AccessTr.neT


Tablodaki Satırlardaki Karakter Adedi Bulma

Tablodaki Satırlardaki Karakter Adedi Bulma

#31
böylede oluyormuş
Public Function sayLen(GVeri As String, Optional Ayrac As String = ",") As Integer
    On Error Resume Next
    sayLen = Len(GVeri) - Len(Replace(GVeri, Ayrac, "")) + 1
End Function

Public Function splitVeri(GVeri As String, GSayi As Integer, Optional Ayrac As String = ",") As String
    On Error Resume Next
    splitVeri = Split(GVeri, Ayrac)(GSayi)
End Function
Cevapla
#32
(28/03/2020, 23:25)berduş yazdı: aslında dikkat ederseniz sorgulara da gerek yok
Modüldeki kodlar
Public Function SplitStnSay(GVeri As String, Optional Ayrac As String = ",") As Integer
    On Error Resume Next
    Dim var As Variant
    Dim GAyrac As String
    GAyrac = Ayrac
    var = Split(GVeri, Ayrac)
    SplitStnSay = UBound(var) + 1
End Function

Public Function SplitVeriBul(GVeri As String, GSayi, Optional Ayrac As String = ",") As Variant
    On Error Resume Next
    Dim var As Variant
    Dim GAyrac As String
    GAyrac = Ayrac
    var = Split(GVeri, GAyrac)
    SplitVeriBul = var(GSayi)
End Function
butonun kodu
Private Sub BtnSay_Click()
   
    Dim sql, SqlStn As String
    Dim xStnSay, x As Integer
     
Dim ADO_RS As Object
Set ADO_RS = CreateObject("adodb.recordset")
             Sql = "SELECT  max(SplitStnSay([Alan1])) AS [HstStn] FROM Tablo1"
    ADO_RS.Open sql, CurrentProject.Connection, 3, 1

xStnSay = ADO_RS(0)
ADO_RS.Close
Set ADO_RS = Nothing
'hy Sorguyu s?tunlara b?l
SqlStn = ""
For x = 1 To xStnSay
    SqlStn = SqlStn & ", SplitVeriBul([Alan1]," & x - 1 & ") AS [HstStn" & CStr(x) & "]"
Next x
    Sql = "SELECT Alan1, " & Mid(SqlStn, 2) & " FROM Tablo1;"
    Me.LstStn.ColumnCount = xStnSay
    Me.LstStn.RowSource = sql

'hy Union____________________________
SqlStn = ""
For x = 1 To xStnSay
    SqlStn = SqlStn & " union all SELECT  Nz(SplitVeriBul([Alan1]," & x - 1 & "),'') AS [HstStn] from tablo1 " & _
                      " where Nz(SplitVeriBul([Alan1]," & x - 1 & "),'')<>''" & vbCrLf
Next x
    Sql = Mid(SqlStn, 11)

    Sql = " SELECT [HstStn], count([HstStn]) AS ToplamSayi FROM (" & Sql & ") as Bileske GROUP BY [HstStn] order by count([HstStn]) "
    Me.LstSay.RowSource = sql

End Sub

Kontrol kodunu eklemeyi yine unutmuşum)

Evet sorgulara gerek yok.Ben extra sorgu için yaptım çünkü kullanmayı bilmiyordum.Dün modüldeki kodları forumda görünce hoşuma gitmişti geliştireyim istemiştim.
Güzel dosyalar oluştu sonuçta.Benim işime yarayacağını sanmıyorum lakin öğrenmiş olduk.Belki işine yarayacak olanlar çıkar.
Cevapla
#33
Cevaplanmışlara taşıyalım mı?
Cevapla
#34
(28/03/2020, 23:53)berduş yazdı: Cevaplanmışlara taşıyalım mı?
Evet,herşey için siz ve accessman hocamıza teşekkürler.
Cevapla
#35
ben bir şey yapmadım ama sizin ellerinize sağlık
hazır başlamışken çapraz sorgu da yapılsa güzel olur
resimdeki gibi her ay için kaçar tane eleman olduğunu bulabilir miyiz 

Resim ekleyemedim maalesef
@benbendedeilem
Cevapla
#36
(29/03/2020, 00:19)accessman yazdı: ben bir şey yapmadım ama sizin ellerinize sağlık
hazır başlamışken çapraz sorgu da yapılsa güzel olur
resimdeki gibi her ay için kaçar tane eleman olduğunu bulabilir miyiz 

Resim ekleyemedim maalesef
Bende onu yazacaktım berduş hocamızın son dosyayı inceledim süper olmuş.
Bence sizin şu kronik hastalar konusu için kodu uyarlayabilirse daha pratik olur gibi.
Tabii isterse.

Sıralama olayı bile var kodda Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task