AccessTr.neT

Merhaba arkadaşlar. ekteki çalışmamda çoklu seçim yaptırıp aktarım sağlamak için işlemler yaptım fakat hata alıyorum. sorunu çözemedim. bakma şansınız var mı? aynı şekilde bileşik seçim kutusunda da yapamadım. şimdiden teşekkürler

(21/01/2019, 12:47)yahzee_61 yazdı: [ -> ]Merhaba arkadaşlar. ekteki çalışmamda çoklu seçim yaptırıp aktarım sağlamak için işlemler yaptım fakat hata alıyorum. sorunu çözemedim. bakma şansınız var mı? aynı şekilde bileşik seçim kutusunda da yapamadım. şimdiden teşekkürler

Sorunuzu "Access Soruları ve Cevapları" bölümüne taşıyorum.
Lütfen yeni sorularınızı bu başlık altına açınız.

bir çözümü yok mu bunun

Merhaba, kodunuzun düzeltilmiş hali ektedir.

Dim GKontrol As Variant

Dim dazi As String



With Me.Liste0



    If .ItemsSelected.Count <> 0 Then

    

        For Each GKontrol In .ItemsSelected

    

            dazi = dazi & .Column(2, GKontrol) & vbNewLine

        

                CurrentDb.Execute "INSERT INTO Tablo2 (Prs_Id, Adi, Maas, Prim) VALUES ('" & .Column(0, GKontrol) & "', '" & .Column(1, GKontrol) & "', '" & .Column(2, GKontrol) & "', '" & .Column(3, GKontrol) & "');"

        Next

    

        Me.Metin2 = dazi

        

    End If

End With



Me.Tablo2.Requery

teşekkür ederim. oldu