Liste kutusuna tablodaki verileri AddItem olarak eklemek

selam

tablodaki verileri liste kutusuna AddItem şeklinde ekleme imkanı varmıdır

örneğin

tablo1.
id,adi,soyadi,adresi,vs..

alanlarındaki verileri filtreleyip yada filtrelemeden liste kutusunda AddItem şeklinde eklenebilirmi

saygılarımla

Ek Dosyalar

Ne istediğinizi algılayamadım. Biraz detaylı açıklarmısınız?

Niye böyle bir şey istediğinizi anlamadım ama buyrun.

Private Sub Liste_Kutusunu_Doldur()

    Dim Rs As New ADODB.Recordset

    Rs.Open "Tablo1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

    Me.Liste10.RowSource = ""

    Do Until Rs.EOF

        Me.Liste10.AddItem (Rs("id") & ";" & Rs("adi") & ";" & Rs("soyadi") & ";" & Rs("adresi") & ";" & Rs("telefon"))

        Rs.MoveNext

    Loop

    Rs.Close

End Sub

Ek Dosyalar

Sn.aydın3838
Lütfen sonuç hakkında geri dönüş yapın.