Skip to main content

AccessTr.neT


Yan Kutuya Aktarma

Yan Kutuya Aktarma

Çözüldü #1
merhaba arkadaşlar. liste kutusundan seçimle yan kutuya seçilenlerin aktarılması işleminde aşağıdaki kodu kullanıyorum

Kod:
With Me.Liste99
    If .ItemsSelected.Count <> 0 Then
        For i = 0 To .ItemsSelected.Count - 1
            dazi = dazi & .ItemData(.ItemsSelected(i)) & vbNewLine
        Next i

        Me.urunleraktarilan = dazi
       

    End If

liste kutusunun sadece 2. sütunun almak için nasıl bir revize gerekli ?
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#2
.Column (Index, Row)
.Column (.ItemsSelected(i), 1) 
şeklinde dener misiniz?
Cevapla
#3
(12/03/2020, 16:24)berduş yazdı: .Column (Index, Row)
.Column (.ItemsSelected(i), 1) 
şeklinde dener misiniz?


Kod:
dazi = dazi & .ItemData.Column(.ItemsSelected(i), 1) & vbNewLine
şeklinde diyorsanız olmadı denedim onu.
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#4
.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
Cevapla
#5
yok. şimdi hiç aktarmıyor. ekte ekledim dosyayı belki eksik bilgi vermişimdir diye.

yeri - fatura_islemleri tablosu
.zip Database4.zip (Dosya Boyutu: 79,51 KB | İndirme Sayısı: 6)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da