Textbox-Tarih formatı

[excelman]

Merhabalar;

Textbox ı aşağıdaki gibi formatladım.

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub

29/05/2006 yazan tarih
Shift+Tab yaptığım zaman
/3/8866 bu şekle geliyor

Normal de düzgün çalışıyor fakat Shift+Tab tuşlarına basıp bir üst textbox a çıktığım zaman tarih bozuluyor.
Bunu nasıl düzeltebilirim?[/code]

 

[Kemal Demir]

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "dd.mm.yyyy")
End Sub

Zannedersem Böyle denersenız problem olmayacak dıye dusünuyorum

 

[Kemal Demir]

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "dd.mm.yyyy")
End Sub

Zannedersem Böyle denersenız problem olmayacak dıye dusnuyorum

 

[excelman]

Sayın Rakkas cevabınız için teşekkür ederim ama bu formülüde denedim fakat sorunu çözmedi.

 

[zafer]

Merhaba


TextBox7.Value = CDate(TextBox7.Value)

 

[Ali]

Sn excelman,

TextBox7.Value = Format(CDate(TextBox7.Value), "dd.mm.yyyy")

şeklinde deneyin

 

[excelman]

Arkadaşlar verdiğiniz kodları denedim fakat aşağıdaki hatayı verdi.

Run-time error "13":
Type mismatch

şeklinde hata veriyor.Acaba benim excel de eksik olan birşeyler mi var?

 

[zafer]

Merhaba

Cdate ile hata vermez

Sn.Fructose'nin kini deniyorsanız

Excel tarih formatınız ne ise onu kullanın
dd/mm/yyyy
dd.mm.yyyy gibi

 

[Ongun]

Selam, aşağıdaki kodu denermisin.

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub

 

[Korhan Ayhan]

Selamlar,

Hata veren dosyanızı ekleyebilirmisiniz inceleyelim.

 

[Ali]

Sn zafer, sizin önerdiğiniz daha pratik birde format değiştirmek zorunda kalınmaz. :hey:

 

[Ongun]

Sayın Excelman, kodunuzu aşağıdaki prosedüre kopyalayın. İşinizi görecek. Kolay gelsin.

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(TextBox7.Value, "##/##/####")
End Sub

 

[excelman]

Sayın Ongun teşekkür ederim.
Verdiğiniz kodlarla sorun çözüldü.
İyi Çalışmalar.

 

[xxrt]

Sayın Ongun,

Verdiğiniz kod'daki format şeklini ilk görüyorum.Şunu merak ettim ve denedim.

Kodu aynen girdim tarih yazdım mesela 15/03/2006 enter ile alt textboxa geçtim tarihi şu şekilde verdi.
/3/8791

bu nasıl bir şey..Bu tarih formatımı?Yoksa ben yanılıyormuyum.. :?

 

[Ongun]

Sayın Ongun,

Verdiğiniz kod'daki format şeklini ilk görüyorum.Şunu merak ettim ve denedim.

Kodu aynen girdim tarih yazdım mesela 15/03/2006 enter ile alt textboxa geçtim tarihi şu şekilde verdi.
/3/8791

bu nasıl bir şey..Bu tarih formatımı?Yoksa ben yanılıyormuyum.. :?

Sayın xxrt, tarihi 15/03/2006 olarak yazarsanız bu hatayı verir. Ancak, 15032006 olarak yazarsanız bu hatayı vermemesi lazım. Saygılarımla

 

[xxrt]

Anladım.Genelde 15/03/2006 formatı ile textlere giriliyorda,bunudaöyle düşünmüşüm.
Bilgilendirme için teşekkür ederim.

 

[Ongun]

Rica ederim Sn xxrt, saygılarımla.

 

[zafer]

Merhaba

29/05/2006 yazan tarih
Shift+Tab yaptığım zaman
/3/8866 bu şekle geliyor

Normal de düzgün çalışıyor fakat Shift+Tab tuşlarına basıp bir üst textbox a çıktığım zaman tarih bozuluyor.
Bunu nasıl düzeltebilirim?[/code]

O zaman tarih değilde sayı olarak girilmesi lazım.siz formatta tarih değil sayıları ayırmış oluyorsunuz.

Sn.Excelman 29/05/2006 diye giriyorsa sonuç nasıl doğru oluyor anlamış değilim.

Sayın xxrt'ninde anlatmak istediğide tarih formatının bu sekilde olmamasıdır sanıyorum.