Merhabalar access te bulunan tablodan userform labele veri atmak için nasıl bir kod yazmam lazım.Listbox a veri atıyorum ama label yada texte bir türlü beceremedim. Listboxları aşağıdaki kodlarla getirebiliyorum ama label yada text ile bağlantı kuramadım.Yardımlarınız için teşekkür ederim.

Sub TUMMERSİNVO()
Dim baglan As New Connection
Dim rs As New Recordset

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\merersin\Desktop\vba\MASTER.accdb;"
rs.Open "select VO,ADRES from MVO", baglan, adOpenKeyset, adLockPessimistic

With anaform.ListBox7
.ColumnCount = 2
.ColumnWidths = "50;100"
.Column = rs.GetRows
End With

Sub TUMMERSINVO()
Dim baglan As New ADODB.Connection
....
...
...
End With
rs.Close
Set rs = Nothing
baglan.Close
Set baglan = Nothing

Dim Sw As Long
For Sw = 0 To anaform.ListBox7.ListCount - 1
Yazi = Yazi & anaform.ListBox7.Column(0, Sw) & Space(7) & anaform.ListBox7.Column(1, Sw) & vbNewLine
Next Sw
anaform.TextBox1.MultiLine = True
anaform.TextBox1.Text = Yazi
anaform.Label1.Caption = Yazi
End Sub




  ersin_gurbuz.rar (Boyut: 58,68 KB / İndirilme: 9) Liste kutusundaki verileri okutup, metin veya etikete aktarılabilir. Liste kutusu olmayacaksa Do until rs.eof ile loop arasını Yazi değişkenine atayıp, veri gösterimini yapabilirsiniz.