AccessTr.neT

Tam Versiyon: Liste Kutusundan Seçilen Farklı Veriyi Sorgulama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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][Resim: do.php?img=11336][/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