AccessTr.neT

(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.

(18/04/2020, 20:03)alicimri yazdı: [ -> ]TextBox'ın Giriş Maskesi özelliğinden ayarlama yapın, o zaman başka biçimde veri girilemez.

(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

(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