Skip to main content

AccessTr.neT


Textbox Formatını Zorunlu Hale Getirme

Textbox Formatını Zorunlu Hale Getirme

Çözüldü #1
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.
Cevapla
#2
TextBox'ın Giriş Maskesi özelliğinden ayarlama yapın, o zaman başka biçimde veri girilemez.
Cevapla
#3
(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

Cevapla
#4
(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.
Cevapla
#5
(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

Cevapla
#6
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task