ilk 20 kayıttan sonra ListBox2

[teksen]

Arkadaşlar merhaba,

UserForm1 üzerinde bir arama yaptığımda uygun olanları ListBox1 e getiriyor.

İlk 20 kayıttan sonrasını,yani 20 sıradan sonrasını varsa ListBox2 ye getirmesi için nasıl bir kod kullanabiliriz acaba?

Şimdiden teşekkür ederim.

 

[Mahmut Kök]

Arkadaşlar merhaba,

UserForm1 üzerinde bir arama yaptığımda uygun olanları ListBox1 e getiriyor.

İlk 20 kayıttan sonrasını,yani 20 sıradan sonrasını varsa ListBox2 ye getirmesi için nasıl bir kod kullanabiliriz acaba?

Şimdiden teşekkür ederim.

Birkaç farklı yöntemle yapılabilir. Küçük bir örnek eklerseniz ona uygun bir çalışma yapalım.

 

[teksen]

Teşekkür ederim.

 

[Mahmut Kök]

Sizin kodlarınızda yaptığım birkaç ufak değişiklik fikir verebilir.

Private Sub CommandButton286_Click()
Dim tx1, tx2 As String, lb,lbx
      On Error Resume Next
      Set adoCN = CreateObject("ADODB.Connection")
      DatabasePath = ThisWorkbook.Path & "\TestDB5.mdb"  'Vistada C:'ye dosya açamıyoruz..
      If Dir(DatabasePath) = "" Then
          MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestDB5"
          Unload Me
          Exit Sub
      End If
      adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
      adoCN.ConnectionString = DatabasePath
      adoCN.Open
 
    tx1 = TextBox10.Text
    tx2 = TextBox11.Text
    tx3 = TextBox12.Text
    tx4 = TextBox13.Text
 
          Set RS = CreateObject("ADODB.recordset")
 
      strSQL = "SELECT * FROM [MyTable] where (Marka like '%" & tx1 & "%'" & _
      "and Model like '" & tx2 & "%' and Tedarikci like '%" & tx3 & "%' and Adet like '%" & tx4 & "%') ORDER BY Marka"
 
      RS.Open strSQL, adoCN, 1, 3
      RS.MoveFirst
      ListBox2.Clear
      ListBox3.Clear 'eklendi.
      Do While Not RS.EOF
      If ListBox2.ListCount > 4 Then lb = 3 Else lb = 2 ''' Listboxlar değişkene atandı. sql'ye markaya göre sıralama eklendi.
      Set lbx = Controls("Listbox" & lb)
          x = lbx.ListCount
          lbx.AddItem
          lbx.Column(0, x) = RS("Marka")
          lbx.Column(1, x) = RS("Model")
          lbx.Column(2, x) = RS("Tedarikci")
          lbx.Column(3, x) = RS("Adet")
          RS.MoveNext
      Loop
End Sub