AccessTr.neT

Allah allah ben iptal edeyim dijital imza olayını o zaman bir anlamı kalmadı ki. İnternette izlediğim bir dersde hocanın anlattığı çözüm dü bu yada hocaya bir mesaj atayım bakalım nedeni konusunda bir yorum yapabilecek mi.

---

Evet @berduş hocam taşıyabilirsiniz. Tekrar teşekkürler.

belki de ben becerememişimdir, yada benim ofis sistemimde bir sorun vardır bilemiyorum. @feraz hocamda bu sorun yaşanmamış da olabilir onun cevabını da bekleyeylim.

yalnız şunu farkettim 65.500 küsür satır veri varken yazdığım Sql kodu

SQL = "SELECT [F1] " & _

              "FROM [Ana_Sayfa$C2:C" & sonStr & "] " & _

              "ORDER BY [F1];"

  satır sayısı aşma nedeniyle hata veriyor, onu aşağıdaki şekilde düzenlemek gerekiyor
galiba sınır hala eski excel)

        Sql = "SELECT [F1] " & _

              "FROM [Ana_Sayfa$C2:C] " & _

              "where [F1]<>"""" " & _

              "ORDER BY [F1];"

Düzelttim @berduş hocam. Teşekkür ederim.

dediğim gibi sorun 65bin üzerindaki veride oluşuyor birkaç binle sınırlıysa veriniz, sorun olmaz

Buda başka yoldan.Normalde bununlada Tr karakterler en altta sıralanıyordu ama ne hikmetse doğru sıralanıyor
3bin küsur 1 saniye sürdü.


https://resim.accesstr.net/do.php?img=11022

    Dim dic_col As Object: Set dic_col = CreateObject("System.Collections.ArrayList")

    If ComboBox_FirmaUnvani > 0 Then

        With dic_col

            For i = 0 To ComboBox_FirmaUnvani.ListCount - 1

                If Not dic_col.Contains(CStr(ComboBox_FirmaUnvani.List(i, 0))) Then _

                .Add CStr(ComboBox_FirmaUnvani.List(i, 0))

            Next

            .Sort: ComboBox_FirmaUnvani.Clear: ComboBox_FirmaUnvani.List = .toarray: .Clear

        End With

    End If

    Application.ScreenUpdating = True

    Set dic_col = Nothing