(28/03/2020, 19:36)berduş yazdı: Hastalıkla ilgili olmasa da temel amacınızı doğru yorumlamış miyim
Uygun olduğumda çözümü aramak için soruyu doğru anlamam sart)

Option Compare Database

Public scr As New Scripting.Dictionary



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)

    

    scr(UBound(var)) = scr(UBound(var))



End Function

Private Sub Komut0_Click()

    

    Dim Sql As String

    Dim xx

    Dim arr1 As Object

    

    Sql = "SELECT Alan1, SplitVeriBul([Alan1],0) AS [Ayir 1] FROM Tablo1"

    

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

    DoCmd.OpenQuery "Sorgu1"

    

    

    Set arr1 = CreateObject("System.collections.arraylist")

    With arr1

        For Each xx In scr.Keys

            If Not .contains(xx) Then arr1.Add xx

        Next

        On Error Resume Next

        arr1.reverse

        Err.Clear

        MsgBox arr1(0)

    End With



End Sub

int count = line.length() - line.replace(".", "").length();