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
aşağıdaki kodu dener misiniz?