Combobox a numerık değer girilmesi

Kemal Demir · 11 Kasım 2005

Arkdaslar iyi akşamlar.

Combobox a numerik girilmemesi için gerekn kodu alabilirmiyim.

Yardımlarınız İçin Teşekkur Ederim.

Levent Menteşoğlu · 11 Kasım 2005

Comboboxmu yoksa Textboxmu?

eyüppsen · 11 Kasım 2005

Merhaba

Kod:

Private Sub ComboBox1_Change&#40;&#41;
 If Right&#40;ComboBox1, 1&#41; Like "&#91;0-9&#93;" Then SendKeys "&#123;bs&#125;"
End Sub

dEdE · 11 Kasım 2005

Teşekkürler,
Peki sadece nümerik değer girilmesi için ne yapabiliriz.

Levent Menteşoğlu · 11 Kasım 2005

Sadece küçük bir ilave yeterlidir.

[vb:1:68781c00e8]If not Right(ComboBox1, 1) Like "[0-9]" Then SendKeys "{bs}"[/vb:1:68781c00e8]

dEdE · 11 Kasım 2005

Teşekkürler

Haluk · 11 Kasım 2005

Veya;

Kod:

Private Sub ComboBox1_Change&#40;&#41;
 If Right&#40;ComboBox1, 1&#41; Like "&#91;A-Za-z&#93;" Then SendKeys "&#123;bs&#125;"
End Sub

Veya;

Kod:

Private Sub ComboBox1_Change&#40;&#41;
 If Right&#40;ComboBox1, 1&#41; Like "&#91;!0-9&#93;" Then SendKeys "&#123;bs&#125;"
End Sub

Kemal Demir · 12 Kasım 2005

arkadaslar şimdi online oldum cok teşekkur ederim.