Combobox'a belirttiğim değerler dışında değer girilemesin

[nihattt]

Private Sub CommandButton1_Click()
If ComboBox3.Value <> 10 Or 12 Then
MsgBox "10 ve 12 dışında bir değer giremezsiniz.."
ComboBox3.SetFocus
Exit Sub
End If
End Sub

burda nerde yanlış yapıyorum. CommandButton1 e bastığımda ComboBox3'ün değeri 10 ve 12 dışında bir değer ise uyarı versin istiyorum. mantığını yapamadım.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil, deneyiniz.

If ComboBox3.Value <> 10 And ComboBox3.Value <> 12 Then

 

[nihattt]

çok tşk ederim. ziya bey. denedim oldu. ben niçin bu şekil denemeyip "or" ile ısrar ettiysem.