• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Textbox ta Tarih formatı

Katılım
20 Haziran 2008
Mesajlar
697
Excel Vers. ve Dili
Microsoft Office ev ve iş 2019
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
 

Ekli dosyalar

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.
 
Kırmızı satırı ekleyin.:cool:,
Rich (BB code):
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
 
Kırmızı satırı ekleyin.:cool:,
Rich (BB code):
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.
 
Rica ederim.
İyi akşamlar.:cool:
 
Geri
Üst