AccessTr.neT
Textbox Formatını Zorunlu Hale Getirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textbox Formatını Zorunlu Hale Getirme (/konu-textbox-formatini-zorunlu-hale-getirme.html)

Textbox Formatını Zorunlu Hale Getirme - kanakan52 - 18/04/2020

Merhaba arkadaşlar,

Userform üzerindeki textbox sayı biçimini zorunlu hale getirebilir miyiz ?

Örneğin textbox içeriği 120-00-0001 formatına uygun değilse mesaj versin.

If TextBox1.Text <> Format(TextBox1.Value, "000-00-000") Then
MsgBox ("Hatalı Format")
End If


gibi..

Şimdiden teşekkür ederim.

RE: Textbox Formatını Zorunlu Hale Getirme - alicimri - 18/04/2020

TextBox'ın Giriş Maskesi özelliğinden ayarlama yapın, o zaman başka biçimde veri girilemez.

RE: Textbox Formatını Zorunlu Hale Getirme - feraz - 18/04/2020

(18/04/2020, 19:01)kanakan52 yazdı: Merhaba arkadaşlar,

Userform üzerindeki textbox sayı biçimini zorunlu hale getirebilir miyiz ?

Örneğin textbox içeriği 120-00-0001 formatına uygun değilse mesaj versin.

If TextBox1.Text <> Format(TextBox1.Value, "000-00-000") Then
MsgBox ("Hatalı Format")
End If


gibi..

Şimdiden teşekkür ederim.

Kod:
TextBox1.MaxLength = 10
If Not TextBox1.Value Like "###-##-###" Then
    MsgBox ("Hatalý Format")
End If


RE: Textbox Formatını Zorunlu Hale Getirme - feraz - 19/04/2020

(18/04/2020, 20:03)alicimri yazdı: TextBox'ın Giriş Maskesi özelliğinden ayarlama yapın, o zaman başka biçimde veri girilemez.
Excel Textboxta o özellik yok biliyorum accessteki gibi.

RE: Textbox Formatını Zorunlu Hale Getirme - kanakan52 - 19/04/2020

(18/04/2020, 21:01)feraz yazdı:
(18/04/2020, 19:01)kanakan52 yazdı: Merhaba arkadaşlar,

Userform üzerindeki textbox sayı biçimini zorunlu hale getirebilir miyiz ?

Örneğin textbox içeriği 120-00-0001 formatına uygun değilse mesaj versin.

If TextBox1.Text <> Format(TextBox1.Value, "000-00-000") Then
MsgBox ("Hatalı Format")
End If


gibi..

Şimdiden teşekkür ederim.

feraz hocam teşekkür ederim, daha iyi oldu )

Kod:
TextBox1.MaxLength = 10
If Not TextBox1.Value Like "###-##-###" Then
    MsgBox ("Hatalý Format")
End If


RE: Textbox Formatını Zorunlu Hale Getirme - feraz - 19/04/2020

(19/04/2020, 12:22)kanakan52 yazdı:
(18/04/2020, 21:01)feraz yazdı:
(18/04/2020, 19:01)kanakan52 yazdı: Merhaba arkadaşlar,

Userform üzerindeki textbox sayı biçimini zorunlu hale getirebilir miyiz ?

Örneğin textbox içeriği 120-00-0001 formatına uygun değilse mesaj versin.

If TextBox1.Text <> Format(TextBox1.Value, "000-00-000") Then
MsgBox ("Hatalı Format")
End If


gibi..

Şimdiden teşekkür ederim.

feraz hocam teşekkür ederim, daha iyi oldu )

Kod:
TextBox1.MaxLength = 10
If Not TextBox1.Value Like "###-##-###" Then
    MsgBox ("Hatalý Format")
End If
Rica ederim.