Liste Kutusundan Seçilen Farklı Veriyi Sorgulama

merhabalar,
liste kutusundaki verileri tabloya aktarırken, 
liste kutusundan seçmiş olduğum kayıtların veri tipinin aynı olması gerekiyor. 
veri tipi farklı bir kayıt seçilirse aktarması istiyorum,

örnekteki kaydı mesela aktarmaması lazım, çünkü veri tipi 1 olanların içinde 2 olan kayıt var, 
bu sorgulama yaptırılabilirmi acaba?

[img]
[/img]

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

sn üstadım,
süper olmuş, 
çok teşekkür ederim,
Allah razı olsun

Rica ederim
İyi çalışmalar