AccessTr.neT

merhaba arkadaşlar. liste kutusundan seçimle yan kutuya seçilenlerin aktarılması işleminde aşağıdaki kodu kullanıyorum


liste kutusunun sadece 2. sütunun almak için nasıl bir revize gerekli ?

.Column (Index, Row)

.Column (.ItemsSelected(i), 1) 

şeklinde dener misiniz?

(12/03/2020, 16:24)berduş yazdı: [ -> ].Column (Index, Row)

.Column (.ItemsSelected(i), 1) 

şeklinde dener misiniz?

şeklinde diyorsanız olmadı denedim onu.

.itemdata kısmı yok
bu yönten daha kolay gibi

Dim varItm As Variant

 For Each varItm In Liste2.ItemsSelected

 Debug.Print Liste2.Column(0, varItm), Liste2.Column(1, varItm), Liste2.Column(2, varItm)

 Next varItm

sizin yönteme göre

With Me.Liste2

    If .ItemsSelected.Count <> 0 Then

        For i = 0 To .ItemsSelected.Count - 1

            dazi = dazi & .Column(1, .ItemsSelected(i)) & vbNewLine

        Next i



        End If

End With

yok. şimdi hiç aktarmıyor. ekte ekledim dosyayı belki eksik bilgi vermişimdir diye.

yeri - fatura_islemleri tablosu

sayın @derzulya siz doğrudan debug.print komutunu kullanmışsınız o sadece kodun nasıl çalıştığını göstermek için eklenmiş sonucu Vba penceresine yazdırmak için kullanılan bir kod.
aşağıdaki şekilde dener misiniz?

Dim varItm As Variant

 For Each varItm In Liste2.ItemsSelected

 dazi = dazi & Liste2.Column(1, varItm) & vbNewLine

 Next varItm

 Me.urunleraktarilan = dazi