+- 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 IfCvp: Yan Kutuya Aktarma - berduş - 12/03/2020
.Column (Index, Row)
.Column (.ItemsSelected(i), 1) Cvp: Yan Kutuya Aktarma - derzulya - 12/03/2020
(12/03/2020, 16:24)berduş yazdı: .Column (Index, Row)
şeklinde dener misiniz?.Column (.ItemsSelected(i), 1)
Kod:
dazi = dazi & .ItemData.Column(.ItemsSelected(i), 1) & vbNewLineCvp: 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
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 WithCvp: 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