Textbox da bosluk

[analizci]

Arkadaşlar Merhaba
Benim bir sorunum var am abir türlü çözemedim
yapmak istediğim textbox sa plaka yazıyorum.örneğin (34ADS34) gibi
bunu yazdıktan sonra plakanın arasında boşluk olmasını istiyorum. (34 ADS 34) gibi .
Yardımlarınız için şimdiden teşekkürler.....

 

[iggydarsa]

Textbox icindemi bosluk yaratsin, yoksa bilgiyi sayfaya aktarirken mi bosluk yaratip aktarsin?

 

[analizci]

textbox içinde boşluk yapmak istiyorum.

 

[Haluk]

Þöyle olur mu ?

[vb:1:ea8f29c68e]Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
If TextBox1 Like "##" Then
TextBox1 = TextBox1 & " "
ElseIf TextBox1 Like "## [A-Z][A-Z]" Then
TextBox1 = TextBox1 & " "
ElseIf TextBox1 Like "## [A-Z][A-Z] [A-Z]" Then
TextBox1 = Mid(TextBox1, 1, 5) & Right(TextBox1, 1) & " "
End If
End Sub
[/vb:1:ea8f29c68e]

 

[Haluk]

Böyle biraz daha iyi ama ... :mrgreen:

[vb:1:137fe2e785]Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Not KeyCode = vbKeyBack Then
If TextBox1 Like "##" Then
TextBox1 = TextBox1 & " "
ElseIf TextBox1 Like "## [A-Z][A-Z]" Then
TextBox1 = TextBox1 & " "
ElseIf TextBox1 Like "## [A-Z][A-Z] [A-Z]" Then
TextBox1 = Mid(TextBox1, 1, 5) & Right(TextBox1, 1) & " "
End If
End If
End Sub
[/vb:1:137fe2e785]

 

[iggydarsa]

Sn. Raider,

yukardaki kodda

TextBox1 Like "## [A-Z][A-Z]"

kismi tam olarak ne yapiyor?

Tesekurler

 

[Haluk]

yukardaki kodda

TextBox1 Like "## [A-Z][A-Z]"

kismi tam olarak ne yapiyor?

Yani .... TextBox1' in icerigine bak ve eger "SayiSayiBoslukBUYUKHARFBUYUKHARF" formatindaysa ....... yap diyor :mrgreen:

 

[iggydarsa]

Bugun, bisrey daha ogrendik.

Saol :mrgreen:

 

[analizci]

Sn Raider çok tşk ederim istediğim buydu ama küçük bir sorun var. mesela (42 GGG) gibi yazdıktan eğer yanlış yazmışsak silemiyoruz.Silmek için değerlerin tamamını seçmemiz gerekiyor

 

[analizci]

Sn Raider tekrar tşk ederim.Kusua bakmayın sonraki gönderdiğiniz cevabı sonradan gördüm.sorun halloldu.
Çalışmalarınızda başarılar.

 

[Haluk]

....... mesela (42 GGG) gibi yazdıktan eğer yanlış yazmışsak silemiyoruz.Silmek için değerlerin tamamını seçmemiz gerekiyor

2nci alternatifimde bu sorun olmaması gerekir .... "BackSpace" tuşuyla silinebilir

 

[iggydarsa]

Kusura bakma raider seni ablukaya aldik :mrgreen:
ama
1- eger 5 tane alfanumerik karakter varmi diye kontrol etmek icin "format" formati nedir?
2- tarih/saat formatindami diye kontrol etmek icin gerekli format nedir

saol.

 

[Haluk]

1ncisindeki "5 tane alfanumerik karakter" ile neyi kasttigini tam anlayamadim.

2ncisi için de;

MsgBox IsDate(TextBox2)

 

[iggydarsa]

mesela textbox'a girilen info 5 karakterse; sayi, harf veya karisik farketmez

 

[Haluk]

Private Sub CommandButton1_Click()
    MsgBox Len(TextBox2) = 5
End Sub