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)
Visual Basic Code
.Column (.ItemsSelected(i), 1) 
şeklinde dener misiniz?
Cevapla
#3
(12/03/2020 16:24)berduş Adlı Kullanıcıdan Alıntı: .Column (Index, Row)
Visual Basic Code
.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
Visual Basic Code
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
Visual Basic Code
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ı: 3)
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?
Visual Basic Code
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