Access Tablodan Listbox Veri Aktarımı

[bluefalcon]

Arkadaşlar merhaba,

Elimde kendim hazırladığım bir access veritabanı ve bir userform üzerindeki listbox var. ADO ile bağlantıyı yaparak Listbox ilk satır ve ilk sütununa datayı çekebiliyorum. Ancak ben Listbox'un bu ilk sütununa accesste her bir ayrı sütundaki kayıtları aktarmak istiyorum. [ .List(1, s) ile .List(s, 1) şeklinde revizyonu da denedim.] Kodlarım aşağıdaki gibi yardımcı olabilecek kişilere şimdiden teşekkür ederim;

On Error Resume Next
Dim s
userMTR.ListBox1.Clear
      If Not rs.EOF Then
       s = 0
        Do While Not rs.EOF
        With userMTR.ListBox1
             .AddItem
            .Column(0, 0) = rs("OrderIntake")
            .List(1, s) = rs("OverduePayment")
            .List(2, s) = rs("AdvancePayment")
            .List(3, s) = rs("AccountsReceivable")
            .List(4, s) = rs("SavingsonExpenses")
            .List(5, s) = rs("GrossProfitMargin")
            .List(6, s) = rs("VCAsSignedEngineSales")
            .List(7, s) = rs("RevenueTargetAchievement")
            .List(8, s) = rs("Win Rate %")
            .List(9, s) = rs("Period")

        End With       

        
        rs.MoveNext
        s = s + 1
        Loop
Set rs = Nothing

    End If
End Sub

 

[halit3]

Şöyle bir şey olmalı

On Error Resume Next
Dim s
userMTR.ListBox1.Clear

With rs
.MoveLast
sira = .RecordCount
.MoveFirst
End With
    
userMTR.ListBox1.ColumnCount = rs.Fields.Count + 1
userMTR.ListBox1.Column = rs.getrows(sira + 2)

rs.Close

Set rs = Nothing
sira = Empty

 

[bluefalcon]

Sn. halit3 yanıtınız için teşekkür ederim. Önerdiğiniz kodu denedim. Kendi uyguladıklarımla aynı sonucu verdi. Benim istediğim husus kodu denediğimde ortaya çıkan ekli görseldedeki ilk sütun (January) altında bütün verilerin sıralanması. Mümkün müdür acaba?

 

[bluefalcon]

Kodu farklı bir internet sitesi kullanıcısı desteği ile sorunu çözdüm. Konuyla ilgili gelecekte araştırma yapacak kişilere yol göstermesi bakımından access sütunlarını Listbox satırlarında gösterebilmek için;

Do While Not rs.EOF
        With userMTR.ListBox1
             .AddItem  rs("OrderIntake")
             .AddItem  rs("OverduePayment ")
        End With 
        rs.MoveNext