liste kutusu verisini çeki listesinden alıyor o nedenle en kısa yöntem bu, öbür türlüsü liste kutusundaki her satırı tek tek kontrol edip oradan aktararak yapmak olur ki bu çok pratik olmaz ayrıca her sütunun alan türüne göre kodu düzenlemek gerekir tarih, sayı metin gibi

Private Sub veri_aktar_Click()

For i = 1 To Me.Liste8.ListCount - 1

    CurrentDb.Execute "INSERT INTO genel_toplam ( sipno, kg ) values (" & Me.Liste8.Column(0, i) & ",'" & Me.Liste8.Column(1, i) & "')"

Next i

End Sub

---

Me.Liste8.Column(0, i) burada 0 yerine hangi sütunu aktaracaksanız onun 1 eksiğini yazacaksınız
1. sütun --> 1-1=0
2. sütun --> 2-1=1
.
.
gibi

sn üstad, çok teşekkürler.
çok güzel oldu. elinize emeğinize yüreğinize sağlık.

rica ederim
iyi çalışmalar
Not: gördüğünüz gibi uygun açıklama ve örnek ekleme çok önemli.