Başka bir poblem var.

kes = Split(Replace(rs(index), " ", ""), ",") burdaki replace yi meyveler arasında yani Limonun sağında yada solunda boşluk varsa tam sonuç vermiyordu onun için replace ekledim.

Kuru üzüm gibi arada boşluk olunca Kuruüzüm olarak sonuç veriyor.


kes = Split(Trim(rs(index)), ",") böyle trim yaptım oda olmuor neden çözmemiz gerek.

---

(27/03/2020, 13:20)feraz yazdı: Başka bir poblem var.

kes = Split(Replace(rs(index), " ", ""), ",") burdaki replace yi meyveler arasında yani Limonun sağında yada solunda boşluk varsa tam sonuç vermiyordu onun için replace ekledim.

Kuru üzüm gibi arada boşluk olunca Kuruüzüm olarak sonuç veriyor.


kes = Split(Trim(rs(index)), ",") böyle trim yaptım oda olmuor neden çözmemiz gerek.

Yukarıdaki dediklerim için alttaki kod ile değiştirin ilgili satırı.

If rs.RecordCount > 0 Then

        Do While Not rs.EOF

            kes = Split(rs(index), ",")

            For k = LBound(kes) To UBound(kes)

                scr(Trim(kes(k))) = scr(Trim(kes(k))) + 1

            Next

            rs.MoveNext

        Loop

    End If