fonksiyon kodu

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

buton kodu

Private Sub Komut0_Click()

    

    Dim Sql As String

     Sql = "SELECT  max(SplitStnSay([Alan1])) AS [HsStn1] FROM Tablo1;"





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

    DoCmd.OpenQuery "Sorgu1"

    

End Sub

oluşan sorguda tek satır ve sütun var o da sadece en fazla kaç virgül olduğunu gösterir
daha doğrusu virgülle kaç parçaya ayrıldığını...