Sicil No

[ozuberk]

Merhaba

Çalışanlara sicil no vermek istiyorum. Ã?rneğin 1000, 2000, 3000, 4000, 5000 gibi yazdığım zaman “KAYDETMEKTE OLDUÐUNUZ KART BÃ?LÜM KARTIDIR. PERSONEL İÇİN BU KART KODUNUN ALTINDA PERSONEL KARTLARI AÇINIZ, DEVAM ETMEK İSTEDİÐİNİZDEN EMİN MİSİNİZ?” uyarısı versin “EVET” veya “HAYIR” seçenekleri olsun. Eğer boşluk bırakılırsa yani 1 000, 2 000 gibi yazılırsa uyarı vermesin sadece “EVET” veya “HAYIR” çıksın. Emeği geçen arkadaşlara şimdiden teşekkür ederim.

 

[ozuberk]

Cevap:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then MsgBox "KAYDETMEKTE OLDUÐUNUZ KART BÃ?LÜM KARTIDIR. PERSONEL İÇİN BU KART KODUNUN ALTINDA PERSONEL KARTLARI AÇINIZ, DEVAM ETMEK İSTEDİÐİNİZDEN EMİN MİSİNİZ?", vbQuestion + vbYesNo
End Sub