comboboxa girilen karakterlerin sınırlandırılması??

[udentr2002]

Merhaba arkadaşlar comboboxagirilen verinin uzunluğunun 7 karakter olmasını istiyorum yani eğer comboboxdaki karakterlerin sayısı 7 den az ise uyarı mesajı vermeli 7 den fazla ise de uyarı mesajı vermeli ben şöyle bir kod yazdım ama istediğime şey olmuyor kod şöyle

If ComboBox7.MaxLength > 7 Or ComboBox7.MaxLength < 7 Then
MsgBox ("yanlış Kodlama")
Exit Sub
End If

yani kısacası comboboxa grilen sayıların adedi 7 olunca kabul etmeli az yada çok ise uyarı mesajı vermeli bunun için nasıl bir kod yazabilirim şimdiden ilgilenen arkadaşlarıma teşekkür ederim

 

[Orion1]

Merhaba.
A&#351;a&#287;&#305;daki kodlar&#305; kendinize g&#246;re uyarlay&#305;n&#305;z.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ComboBox1.Value) < 7 Then
    MsgBox "Hatal&#305; Giri&#351;.7 Karakterden az." & vbLf & "7 Karakter olmal&#305;..!!", vbCritical
    Cancel = True
End If
If Len(ComboBox1.Value) > 7 Then
    MsgBox "Hatal&#305; Giri&#351;.7 Karakterden B&#252;y&#252;k." & vbLf & "7 Karakter olmal&#305;..!!", vbCritical
    Cancel = True
End If
End Sub

 

[udentr2002]

Hocam

Çok teşekkür ederim emeğinize sağlık

 

[Seyit Tiken]

Yukarıda Sezar bey yanıtlamış. Aynı çözümün, az kodla şekli.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ComboBox1) <> 7 Then MsgBox "Az veya Fazla Krakter Girdiniz"
End Sub