+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: liste kutusu hakkınfa yardım (/konu-liste-kutusu-hakkinfa-yardim.html)
Cvp: liste kutusu hakkınfa yardım - loveislie - 01/05/2011
evet Excel de yapılmış teşekkür ederim liste kutusu hakkında çözüm önerinizi alabilirmiyim yani nasıl yapıldığı hakkında
Cvp: liste kutusu hakkınfa yardım - DUAYEN - 01/05/2011
1. Yöntem ListBox.RowSource
Bu yöntemle bir sayfadaki alanı olduğu gibi listboxta görüntüleyebiliriz.
Kod:
Dim Sons As Long
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
ListBox1.RowSource = "Veri!A2:B" & Sons
2. Yöntem AddItem
AddItem komutu ListBoxun sonuna boş bir satır ekleyecektir.
Bu metodla listboxa veriyi tek tek ekleriz ki bu sebeble yükleme işlemi biraz hantal olurListBox1.AddItem
ListBox1.List(0,0)=Değişken
Dim Sons, Satir As Long
ListBox1.Clear
ListBox1.ColumnWidths = "30;55"
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
For Satir = 2 To Sons
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(Satir, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets(1).Cells(Satir, 2)
Next Satir
3. Yöntem Diziden veya Alandan (Range) den ListBox Doldurmak.
[code]
Dim Sons, Satir As Long
ListBox1.Clear
ListBox1.ColumnWidths = "30;55"
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
ReDim Dizi(Sons - 2, 2)
For Satir = 2 To Sons
Dizi(Satir - 2, 0) = Sheets(1).Cells(Satir, 1)
Dizi(Satir - 2, 1) = Format(Sheets(1).Cells(Satir, 2), "dd.mm.yyyy")
Next Satir
ListBox1.List() = Dizi()
Bu yöntemlerden birini uygulayabilirsin.
Cvp: liste kutusu hakkınfa yardım - loveislie - 01/05/2011
teşekkür ederim ilgilendiğiniz için
Cvp: liste kutusu hakkınfa yardım - DUAYEN - 01/05/2011
Rica ederim sorununuz çözüme kavuştumu.
Cvp: liste kutusu hakkınfa yardım - loveislie - 01/05/2011
evet çözülmüştür teşekkürler ne kadar zormuş bu Access le program yapmak yaa