textbox özelliği

[airborne]

textbox'ın arkasında aşağıdaki gibi bir kod var. 12,30 YTL ve YKR kayıt yapıyorum ama ilgili kayıttan çıkıp tekrar girdiğimde sadece sadece YTL kısmı görülüyor. Nedeni ne olabilir

Private Sub TextBox22_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox22 = Format(TextBox22.Value, "#,##0.00")
End Sub

 

[zafer]

Merhaba

Textbox22 veriyi nereden alıyor.


Aşağıdaki kod'u nedeyin size yol gösterebilir. 1.satırı End sub tan önce kullanırsanız format değişir.A1'de ne yazıyorsa onu alır.

Yani sizin kodunuzda textboxtan çıkarken format uyguluyorsunuz.
girdiğinizde değil

Private Sub UserForm_Initialize()
TextBox1.Value = [a1].Value
TextBox1 = Format(TextBox1.Value, "#,##0.00")
End Sub

 

[selami güzel]

Merhaba Sn.Zafer hocam

Aynı problemim var. ListBox1.Column(13) te 125,25 olan değer TextBox
"TextUsd" ' ye alırken 125.25 olarak alıyor. 125,25 Olarak almak için nasıl
format yapmalıyım.yardımlarınıza teşekkürler.

Saygılarımla

 

[selami güzel]

Sn.Zafer hocam tekrar Merhaba

Forumda aradım ve cevabı buldum.yani "arayan derviş muradına ermiş" gibi oldu. rahatsızlık verdiysem özür.

kod:
Private Sub TextUsd_Change()
TextUsd = Format(ListBox1.Column(13), "#,##0.00")
End Sub

saygılarımla

 

[zafer]

Merhaba

Rica ederim. Birbirimizin sorunlarını halledelim diye varız.

Ben teşekkür ederim sorunu bulup açıklamada bulunduğunuz için.