+- 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ığı: Sorgulama Kodu (/konu-sorgulama-kodu.html)
Sorgulama Kodu - alikagan - 21/05/2022
merhaba arkadaşlar,
1.kod ) aşağıdaki 1.kod ile renk numarasını sorgulatıyorum, eğer liste kutusundan aynı anda farklı renkler seçildiyse mesaj veriyor,
Rnk_no = ""
Dim varItm As Variant
For Each varItm In Me.Liste25.ItemsSelected
X = Me.Liste25.Column(10, varItm)
If Rnk_no = "" Then Rnk_no = X
If Rnk_no <> "" Then
If Rnk_no = X Then
Rnk_no = X
Else
MsgBox "Farklı renkleri aynı anda seçtiniz. Aynı renk ürünleri seçiniz!!!", vbCritical, "Farklı renk nolu ürünler var"
Exit Sub
End If
End If
Next varItm2.kod ) aşağıdaki 2.kod ile de ürün en bilgisini sorgulatıyorum, eğer liste kutusundan aynı anda farklı en ürünler seçildiyse mesaj veriyor,
En = ""
Dim varItm1 As Variant
For Each varItm1 In Me.Liste25.ItemsSelected
y = Me.Liste25.Column(17, varItm1)
If En = "" Then En = y
If En <> "" Then
If En = y Then
En = y
Else
MsgBox "Farklı ebatları aynı anda seçtiniz. Aynı ebat ürünleri seçiniz!!!", vbCritical, "Farklı ebatlar var"
Exit Sub
End If
End If
Next varItm1iki kodu nasıl birleştirebilirim acaba.
aynı anda hem
renk no, hem de en bilgisini sorgulasa,
kafam karıştı yapamadım,
RE: Sorgulama Kodu - berduş - 21/05/2022
aşağıdaki kodu dener misiniz?
Rnk_no = ""
En = ""
Dim varItm As Variant
For Each varItm In Me.Liste25.ItemsSelected
'Rnk için
X = Me.Liste25.Column(10, varItm)
If Rnk_no = "" Then Rnk_no = X
If Rnk_no <> X Then
MsgBox "Farklı renkleri aynı anda seçtiniz. Aynı renk ürünleri seçiniz!!!", vbCritical, "Farklı renk nolu ürünler var"
Exit Sub
End If
'______________________________________________________
'En için
y = Me.Liste25.Column(17, varItm1)
If En = "" Then En = y
If En <> y Then
MsgBox "Farklı ebatları aynı anda seçtiniz. Aynı ebat ürünleri seçiniz!!!", vbCritical, "Farklı ebatlar var"
Exit Sub
End If
Next varItmRE: Sorgulama Kodu - alikagan - 21/05/2022
sn berdus, teşekkür ederim,
çalıştı.
RE: Sorgulama Kodu - berduş - 21/05/2022
Rica ederim
İyi çalışmalar)