Textbox'a Girilen Rakamın Başına Sıfır Eklenmesi

[efeksk]

Değerli arkadaşlar...

Textbox nesnesine yazdığımız herhangi bir sayının önüne, Örn; 5 yazdık 3 hane sıfır ( 0005 )

veya Örn; textboxa 34 yazdık, 0034

veya Örn; textboxa 274 yazdık, 0274

olarak otomatik olarak textbox ın önüne sıfır koyacak.

Tek basamaklı sayı için 3 tane sıfır
İki basamaklı sayı için 2 tane sıfır
Üç basamaklı sayı için 1 tane sıfır
Eğer Dört basamaklı ise sıfır olmayacak.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Taruz]

Merhaba..

Kutunun değiştiğinde (change) ya da güncelleştirme sonrasında (after update) olayında Format fonksiyonundan faydalanabilirsiniz..:


TextBoxAdi =Format(TextBoxAdi , "0000")


.

 

[efeksk]

Merhaba..

Kutunun değiştiğinde (change) ya da güncelleştirme sonrasında (after update) olayında Format fonksiyonundan faydalanabilirsiniz..:


TextBoxAdi =Format(TextBoxAdi , "0000")


.

Bu kadar kolaymıydı beaaa
O kadar change olayında saçma sapan kombinasyonları boşuna mı denedim ben

Eyvallah Taruz hocam :bravo: