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