AccessTr.neT
Yan Kutuya Aktarma - 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ığı: Yan Kutuya Aktarma (/konu-yan-kutuya-aktarma.html)

Sayfalar: 1 2


Yan Kutuya Aktarma - derzulya - 12/03/2020

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 ?


Cvp: Yan Kutuya Aktarma - berduş - 12/03/2020

.Column (Index, Row)
.Column (.ItemsSelected(i), 1) 
şeklinde dener misiniz?


Cvp: Yan Kutuya Aktarma - derzulya - 12/03/2020

(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.


Cvp: Yan Kutuya Aktarma - berduş - 12/03/2020

.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



Cvp: Yan Kutuya Aktarma - derzulya - 12/03/2020

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

yeri - fatura_islemleri tablosu


Cvp: Yan Kutuya Aktarma - berduş - 12/03/2020

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