Skip to main content

AccessTr.neT


Sorgulama Kodu

Sorgulama Kodu

Çözüldü #1
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 varItm

2.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 varItm1


iki kodu nasıl birleştirebilirim acaba. 
aynı anda hem 
renk no, hem de en bilgisini sorgulasa,
kafam karıştı yapamadım,
Cevapla
#2
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 varItm
Cevapla
#3
sn berdus, teşekkür ederim,
çalıştı.
Cevapla
#4
Rica ederim
İyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da