Textbox giriş maskesi

[necrofilus]

Merhabalar

bi userform içinde veri girişleri için pek çok textbox kullanıyorum. bu textboxlardan bazıları tarih bazıları metin bazlı olmalı.

tarih girişi yapacaklarımda bir giriş maskesi oluşturmak istiyorum.
yani ben 20032012 diye direkt bir giriş yaptığımda textbox, girişi 20.03.2012 olarak düzenlemeli ve rakam dışında harf girişlerini kabul etmemeli

ayrıca isim ve soy isim girdiğim textboxlarda var bu textboxların verileride, isim girişinde baş harfi büyük soyisim girişinde de tüm harfleri büyük olmalı.

bu işlemleri nasıl yaptırabileceğimi bilen arkadaşlardan yardım rica ediyorum.

saygılarımla.

 

[Taruz]

Merhaba..

Tarih biçimlendirmesi ile ilgili amacınız için textbox denetiminin güncelleştirme sonrasında (BeforeUpdate) olay yordamı bölümünde bu yapıyı kullanabilirsiniz..:

If Not IsNumeric(TextBoxAdi) Then
MsgBox "sadece rakam girebilirsiniz"
TextBoxAdi.Value = ""
Cancel = -1
Else
TextBoxAdi.Value = Format(CDate( _
                           Left(TextBoxAdi, 2) & "." & Mid(TextBoxAdi, 3, 2) _
                           & "." & Right(TextBoxAdi, 4)), "dd.mm.yyyy")
End If

Alttaki prosedür de diğer isteğiniz için..:

If InStr(1, TextBoxAdi, " ") = 0 Then 'eğer soyadı girilmemişse
    TextBoxAdi.Value = StrConv(TextBoxAdi, 3)
Else
    aa = StrConv(Left(TextBoxAdi, InStr(1, TextBoxAdi, " ") - 1), 3)
    bb = StrConv(Mid(TextBoxAdi, Len(aa) + 1), 1)
    TextBoxAdi.Value = aa & bb
End If

 

[necrofilus]

Çok teşekkür ederim işimi fazlasıyla gördü

 

[ozgurpeh]

Merhaba..

Tarih biçimlendirmesi ile ilgili amacınız için textbox denetiminin güncelleştirme sonrasında (BeforeUpdate) olay yordamı bölümünde bu yapıyı kullanabilirsiniz..:

If Not IsNumeric(TextBoxAdi) Then
MsgBox "sadece rakam girebilirsiniz"
TextBoxAdi.Value = ""
Cancel = -1
Else
TextBoxAdi.Value = Format(CDate( _
                           Left(TextBoxAdi, 2) & "." & Mid(TextBoxAdi, 3, 2) _
                           & "." & Right(TextBoxAdi, 4)), "dd.mm.yyyy")
End If

Alttaki prosedür de diğer isteğiniz için..:

If InStr(1, TextBoxAdi, " ") = 0 Then 'eğer soyadı girilmemişse
    TextBoxAdi.Value = StrConv(TextBoxAdi, 3)
Else
    aa = StrConv(Left(TextBoxAdi, InStr(1, TextBoxAdi, " ") - 1), 3)
    bb = StrConv(Mid(TextBoxAdi, Len(aa) + 1), 1)
    TextBoxAdi.Value = aa & bb
End If

Bu kodları deniyorum ama hata alıyorum. kontrol edebilirmisiniz eksik hatalı olan bir durum varmı ?

 

[Korhan Ayhan]

Kodları uygun olay (event) altına yazarak kullanabilirsiniz.