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