TextBoxa Rakam Sınırlaması

[yavuz829]

Merhaba Arkadaşlar

Aşağıdaki kod ile TextBox1 24,00 dan büyük rakam girildiği uyarı veriyor. Tamamı tıkladığım zaman 24,00 den büyük rakamı kabul ediyor.

Benim istediğim 24,00 dan küçük rakam girildiği zaman kabul etsin. 24,00 dan büyük sayı girdiğimiz zaman uyarı versin ve girilen sayıyı silsin TextBox1 boş kalsın.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1> 24 Then
MsgBox "...!!!.SAAT 24,00 DEN BÜYÜK OLAMAZ.!!!...", vbInformation
Exit Sub: End If

End Sub

 

[Korhan Ayhan]

MsgBox satırından sonra aşağıdaki satırı yazın.

Cancel = True

 

[yavuz829]

Hocam 24,00 dan küçük rakamları da girdiğim zaman ayni uyarıyı veriyor.

 

[Korhan Ayhan]

Deneyiniz.

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık.

Hocam TextBox1 24 rakamından büyük rakam girdiğim zaman uyarı veriyor. Çok güzel.

Rakam yazmadan TextBoxu terk etmemize izin vermiyor.

Örneğin: 25 rakamı yazdım uyarı verdi. TextBox daki rakamı silip TextBoxdan çıkmak istiyorum. İzin vermiyor.

 

[Korhan Ayhan]

Dosyayı güncelledim. Tekrar deneyiniz.

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş.

Hocam size bir zahmet daha verebilirmiyim.

TextBox2 deki rakam TextBox1 deki rakamdan küçük olduğu zaman Uyarı versin.

Örneğin: TextBox2 10,00 TextBox1 20,00 olduğu zaman Uyarı versin ve sizin son yaptığınız gibi rakamı silip TextBoxtan çıkabilelim. Saygılarımla.

 

[Korhan Ayhan]

@yavuz829,

Sanırım bir proje içindesiniz ve benzer sorularınızı görüyorum.

IF sorgu yapısını öğrenmenizde fayda var. Forumda bolca örnek var arama yapmanızı tavsiye ediyorum.

https://www.excel.web.tr/threads/veri-yoenetimi-uygulamasi-veri-kaydetme-degistirme-ve-silme.15160/

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık. Verdiğiniz bilgi için.