textbox kullanımı

[d_yuksel]

merhabalar...

textbox'a tarih girmek için .../.../.... şeklini çıkartabilirmiyiz??ve girilecek değerleri kısıtlayabilir miyiz? mesela yalnızca rakam girilebilsin 11 haneden az giriş yapılamasın. yardımcı olabilirseniz çok sevinirim.

 

[ECYavuz]

Her ikisi de var...

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then
MsgBox "EKS&#304;K KARAKTER G&#304;R&#304;&#350;&#304; !" & vbCrLf & "EN AZ 11 KARAKTER G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbCritical
Cancel = True
ElseIf Len(TextBox1) > 11 Then
MsgBox "FAZLA KARAKTER G&#304;R&#304;&#350;&#304; !" & vbCrLf & "EN FAZLA 11 KARAKTER G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbCritical
Cancel = True
Else
Cancel = False
End If
End Sub

 

[ECYavuz]

Bu da Rakam girilmesi k&#305;s&#305;tlamas&#305;:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("/")
Case Else
KeyAscii = 0: MsgBox "SADECE RAKAM G&#304;REB&#304;L&#304;RS&#304;N&#304;Z.", vbExclamation, "Dikkat !"
End Select
End Sub

 

[ECYavuz]

Buda Format &#246;rne&#287;i:

Tarih format&#305; i&#231;in : TextBox1 = Format(TextBox1, "dd/mm/yyyy")

Para format&#305; i&#231;in : TextBox1 = Format(TextBox1, "#,##0.00")

 

[d_yuksel]

ellerinize sa&#287;l&#305;k &#231;ok te&#351;ekk&#252;rler

 

[d_yuksel]

ben tarih format&#305;n&#305; ekledim. ancak bana giri&#351; izni vermiyor.
(hata: Run-time error'6': Overflow hatas&#305; veriyor) nedendir yard&#305;mc&#305; olur musunuz???

 

[d_yuksel]

bilen kimse yok mu??

 

[d_yuksel]

bilen kimse yok mu????

 

[Orion1]

Acaba tarih formatındanmı kaynaklanıyor.
Yeni bir dosya oluşturun ve sadece textbox'a tarih formatını girerek deneyin bakalım.
Hatayı aramadan bulamazsınız değilmi?

 

[d_yuksel]

ba&#351;ka &#231;al&#305;&#351;ma kitab&#305;nda da yapt&#305;m. rakam tu&#351;lar&#305;ndan birine bast&#305;&#287;&#305;mda kendisi bir tarih at&#305;yor 2. kez bast&#305;&#287;&#305;mda hata veriyor???

 

[Orion1]

Textbox'ın change olayına yazmayın kodu.Exit olayına yazın.

 

[d_yuksel]

&#231;ok te&#351;ekk&#252;rler... ellerinize sa&#287;l&#305;k...

 

[Orion1]

çok teşekkürler... ellerinize sağlık...

Rica ederim.
Ben bir şey yapmadım.

 

[ExcelDonkey]

Exite de yazmay&#305;n. Before Update olay&#305;na yaz&#305;n.
Bir forumda okumu&#351;tum. &#199;ok da i&#351;e yar&#305;yor. Siz de &#246;&#287;renin.