Tablodaki Satırlardaki Karakter Adedi Bulma

Merhaba,resimde işaretlediğim yerde en çok virgül var yani 8 adet.Benim sorum şu tablodaki hangi satırda enfazla varsa onun adedi versin sonuç olarak 8 çıkacak çünkü 8 tane virgül var.Başka satırda 10 adet olsaydı 10 olacaktı sonuç.

Amacım sorguda virgülleri ayırmak.Daha sonra birleştirme işlemine el atacağım.
Adet bulma döngüsüz olması gerekmektedir.Garip bir soru lakin belki vardır bir hal çaresi.

Private Sub Komut0_Click() örnek olsun diye bu şekilde yaptım adet bulunursa döngüye sokacağım.

Private Sub Komut0_Click()

    

    Dim Sql As String

    

    Sql = "SELECT Alan1, SplitVeriBul([Alan1],0) AS [Ayir 1]," & _

                        "SplitVeriBul([Alan1],1) AS [Ayir 2]," & _

                        "SplitVeriBul([Alan1],2) AS [Ayir 3]," & _

                        "SplitVeriBul([Alan1],3) AS [Ayir 4]," & _

                        "SplitVeriBul([Alan1],4) AS [Ayir 5] FROM Tablo1;"



    CurrentDb.QueryDefs("Sorgu1").sql = sql

    DoCmd.OpenQuery "Sorgu1"

    

End Sub

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

Dosyanızı indirip inceleyemedim  o nedenle soruyorum Gsayi neyi temsil ediyor? Neden 5 tane?

Ben olsam satırdaki virgül haricinde ki tüm karakterleri siler sonra satırın uzunluğunu sayarım geriye virgüller kalır o da 8 sonucunu verir

Gsayi functionda var.Oraya mesela 0 yazılırsa ilk virgülden önceki veri için.Yani split olayı.

Kodu aldışım konuda zaten sizde mesaj yazmışınız.Ben komut0click içindekileri yapmaya çalıştım.
Yanini split("xx",",")(0)  burdaki sıfır gibi düşünebilirsiniz Gsayiyi

Accessman hocamızın dosyasında upraşırken merak salmıştım bu olaya.

---

(28/03/2020, 18:09)accessman yazdı: Ben olsam satırdaki virgül haricinde ki tüm karakterleri siler sonra satırın uzunluğunu sayarım geriye virgüller kalır o da 8 sonucunu verir

Nasıl yapacaksınız peki bunu?

---

Asıl amacım tablo Alan1 dekileri bir alanda alt alta eklemek.

A,bc
Aa

Gibiyse 
Sonuç alttaki gibi olacak sorgu1 sorgusunda

A
bc
Aa

Eğer amacınızı yanlış anlamadıysam fonksiyonu değiştirmelisiniz
maksimum değeri bulmak için geri dönen değer ineteger olmalı ve GSayi silinmeli

Public Function SplitVeriBul(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, GAyrac)

    SplitVeriBul = ubound(var()) + 1

End Function

Bu fonksiyonla ile alanın kac parca olduğu bulunabilir
Sql kodu da bu alanın Max olduğu değer olmali

Kodların tamamı nasıl olacak.Çünkü yapamadım.