+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusundan Seçilen Farklı Veriyi Sorgulama (/konu-liste-kutusundan-secilen-farkli-veriyi-sorgulama.html)
Liste Kutusundan Seçilen Farklı Veriyi Sorgulama - alikagan - 11/10/2021
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]
RE: Liste Kutusundan Seçilen Farklı Veriyi Sorgulama - berduş - 12/10/2021
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 SubRE: Liste Kutusundan Seçilen Farklı Veriyi Sorgulama - alikagan - 12/10/2021
sn üstadım,
süper olmuş,
çok teşekkür ederim,
Allah razı olsun
RE: Liste Kutusundan Seçilen Farklı Veriyi Sorgulama - berduş - 12/10/2021
Rica ederim
İyi çalışmalar