AccessTr.neT
Listbox içindeki elemanları döngü ile diziye alma. - Baskı Önizleme

+- 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ığı: Listbox içindeki elemanları döngü ile diziye alma. (/konu-listbox-icindeki-elemanlari-dongu-ile-diziye-alma.html)

Listbox içindeki elemanları döngü ile diziye alma. - direnist - 05/06/2013

Merhaba;
Ekteki örnekte metin kutusundan listbox içine atılan değerleri AKTAR butonu ile bir diziye aktarabilme konusunda bilgilerinizi rica ederim.
Örneğinn kod tarafında görüleceği üzere birşeyler yapmayı denedim ama başarısız oldum.
Teşekkürler.
İyi akşamlar.

Cvp: Listbox içindeki elemanları döngü ile diziye alma. - Kur@l - 05/06/2013

Diziye eleman ekleme tamamdır. Ancak seçilmemişleri aktarmak olmuyor. Önce Seçmek gerekiyor aktarılcak elemanları...
Kolay Gelsin.

Cvp: Listbox içindeki elemanları döngü ile diziye alma. - direnist - 05/06/2013

Teşekkürler Kur@l Hocam;
Liste kutusu içinde shift tuşu ile baştaki ve sondakini seçince yada yine liste kutusu içinde iken CTR+A yapınca da hepsini seçemiyoruz.
Bu seçim işini otomatik yapma yolu var mıdır? Macro ile mesela.
Saygılarımla.

Cvp: Listbox içindeki elemanları döngü ile diziye alma. - Kur@l - 05/06/2013

komut 5 kodunu değiştirip inceleyiniz.


Private Sub Command5_Click()

'listbox tan diziye aktar

 

Dim atama, i

boyut = Me.List3.ListCount

ReDim deger(boyut)

 For i = 0 To Me.List3.ListCount

        Me.List3.Selected(i) = True

Next

i = 0

 

For Each atama In Me.List3.ItemsSelected



deger(i) = Me.List3.ItemData(atama)

MsgBox deger(i)

i = i + 1

Next

End Sub


Cvp: Listbox içindeki elemanları döngü ile diziye alma. - direnist - 05/06/2013

Kur@l Hocam, elinize sağlık, tamamdır.
Çok teşekkür ederim.
İyi akşamlar.

Cvp: Listbox içindeki elemanları döngü ile diziye alma. - umutakkaya - 05/06/2013

Selamlar saygılar. Kandiliniz mübarek olsun.

Dosya örneğinizi inceleyemiyorum. Tanınmayan veri tabanı biçimi diyor. Ofisim Access Ofise 2007 olmasına rağmen açmıyor. Neden olabilir. Tekrar selam ve hürmetler..