AccessTr.neT

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,

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

sn berdus, teşekkür ederim,
çalıştı.

Rica ederim
İyi çalışmalar)