aşağıdaki kodu dener misiniz?

Private Sub Komut10_Click()

Sayi = ""

Dim varItm As Variant

 For Each varItm In Me.Liste8.ItemsSelected

    x = CLng(Me.Liste8.Column(3, varItm))

    If Sayi = "" Then Sayi = x 'Else Exit Sub

    

    If Sayi <> "" Then

        If Sayi = x Then

            Sayi = x

        Else

            MsgBox "tipler farklı"

            Exit Sub

        End If

    End If

10

 Next varItm

 For Each varItm In Me.Liste8.ItemsSelected

    CurrentDb.Execute "INSERT INTO genel_toplam (sipno, kg, veritipi) VALUES(" & Me.Liste8.Column(0, varItm) & ", " & Me.Liste8.Column(1, varItm) & ", " & CLng(Me.Liste8.Column(3, varItm)) & ")"

 Next varItm



End Sub