Textbox ta Tarih formatı

[mustafakoker]

Arkadaşlar merhaba
forumdaki bütün formatları denedim neredeyse fakat bir türlü olmadı
Mutabakat listesinden Listboxa verilerimi çekiyorum Tutar kısmı 0,53 tl Textbox6 da 0.53 olarak alıyor kayıt yaptığımda ise sayfaya 53.00 tl atıyor olması gereken 0,53 krş
kayıt butonunda göreceğiniz üzere neredeyse her kodu kullandım ama sayfaya yanlış kayıt yapıyor value *1 kodunu da denedim

 

[hamitcan]

On Error Resume Next satırını kapatıp kodu çalıştırın. Bir sürü hata veriyor. Öncelikler kodları genel olarak kontrol edin derim.

 

[Orion1]

Kırmızı satırı ekleyin.,

Private Sub ListBox1_Click() 'Mustafa_KOKER
On Error Resume Next

Dim i As Byte, yol As String
If ListBox1.ListCount = 0 Then Exit Sub
For i = 1 To 8
    Me.Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next i
Me.TextBox6.Value = Format(ListBox1.Column(5), "#,##0.00")
End Sub

 

[mustafakoker]

Kırmızı satırı ekleyin.,

Private Sub ListBox1_Click() 'Mustafa_KOKER
On Error Resume Next

Dim i As Byte, yol As String
If ListBox1.ListCount = 0 Then Exit Sub
For i = 1 To 8
    Me.Controls("TextBox" & i).Value = ListBox1.Column(i - 1)
Next i
Me.TextBox6.Value = Format(ListBox1.Column(5), "#,##0.00")
End Sub

evren hocam çok teşekkürler sayenizde bir bilgi daha öğrenmiş oldum. Allah sizden razı olsun
Hayırlı akşamlar.

 

[Orion1]

Rica ederim.
İyi akşamlar.