Listboxdan textboxa sayı format sorunu

[udentr2002]

Merhaba arkadaşlar:
İnanın bütün formatları denedim ve olasılıklarıda denedim ama olmadı.
Ekli dısyadada göreceğiniz gibi.
Combobox1 den seçim yapınca sayfadan listbox1 e süzüyor. Listboxa tıkladığımda da textboxlara verileri alıyor.
Ancak textboxlara gelen hiç bir değer sayı formatları uygun olmuyor.
Textboxlarda yer alan değerlerden sayı formatları 0,00 şeklinde olsa yada listboxda göründüğü gibi olsa
Bunun için nasıl bir kod yazabilirim?

 

[Muzaffer Ali]

Merhaba.

ListBox1_Click kodlarında bulunan aşağıdaki satırı silin.

Controls("TextBox" & X) = ListBox1.Column(X - 4)

Yerine aşağıdakini ekleyin.

Controls("TextBox" & X).Text = ListBox1.Column(X - 4)

Ayrıca tüm TextBoxların change olayına aşağıdaki gibi bir satır eklemelisiniz.

Birim fiyatını örnek olarak yaptım siz diğerlerini de yaparsınız.
Birim fiyatı kuruş hanesi 2 olduğu için 2 yazdım siz diğerlerini ona göre yazarsınız.

Private Sub TextBox7_Change()
    TextBox7.Text = FormatNumber(TextBox7.Text, 2)
End Sub

 

[udentr2002]

Merhaba.

ListBox1_Click kodlarında bulunan aşağıdaki satırı silin.

Controls("TextBox" & X) = ListBox1.Column(X - 4)

Yerine aşağıdakini ekleyin.

Controls("TextBox" & X).Text = ListBox1.Column(X - 4)

Ayrıca tüm TextBoxların change olayına aşağıdaki gibi bir satır eklemelisiniz.

Birim fiyatını örnek olarak yaptım siz diğerlerini de yaparsınız.
Birim fiyatı kuruş hanesi 2 olduğu için 2 yazdım siz diğerlerini ona göre yazarsınız.

Private Sub TextBox7_Change()
    TextBox7.Text = FormatNumber(TextBox7.Text, 2)
End Sub

Hocam çok teşekkürler tüm gün dışardaydım şimdi gördüm mesajınızı emeğiniz için sağolasınız.