Tablodaki Satırlardaki Karakter Adedi Bulma

(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)

Evet hocam anlamışsınız

---

Alttaki gibi rakamı buldum başka yollada bulunur döngü ile lakin ben daha kestirme yoldan bekliyorum.
Yaptığım kodlar aşağıda.

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

Şu nokta sayısını bulmaz mı

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

Bu kodlar accesste ise yaramaz bence

Accessman hocamız okumuyor cevapları.Birde önceki yazdığım kodda bazen işe yaramıyor.

Yalniz fonksiyonu benim belirttiğim şekilde kullansaydınız gerisi sadece dmax şeklinde olurdu bence

14.mesajdaki kesinlikle işe yarar
Anladığım kadarı ile sadece "," sayısına ihtiyaç var