AccessTr.neT

Sayfadan Listview' e alırken
With Sheets(sayfa_ARŞiV)
        Me.TextBox21.Value = WorksheetFunction.SumIfs(.Range("N:N"), .Range("C:C"), Me.ListView1.SelectedItem.SubItems(1) _
                  , .Range("D: D"), Me.ListView1.SelectedItem.SubItems(2), .Range("E:E"), Me.ListView1.SelectedItem.SubItems(3))
       
       
        Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00")
--------------------------------------------------------------------------------

Formdan Sayfaya Kayıt ederken
Format(CDbl(Me.TextBox7.Value), "#,##0.00") * 1

+0 ekledim böyle bir deneyin olmazsa müsait olunca bakarım.
Hata vermemesi için if textbox21.value <> "" gibi kodda eklenebilir.

Me.TextBox21.Value = Format(Me.TextBox21.Value +0, "#,##0.00")

---

Eğer bilgisayar ondalık ayarı farklı ise , ile .
bunu yer değiştirip deneyin.Ama normali alttaki gibi zaten.

Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00")

Ustam Olmadı yaa

(27/07/2021, 20:23)malatyalı yazdı: [ -> ]Ustam Olmadı yaa

Bugün hallederiz abey.

Feraz abim Excel sitelerinde aradım ne bulduysam uyguladım.
bir de birçok textbox var, sizde gördünüz diğerlerinde sıkıntı yok bir tek bu textboxta var

Abey biraz uğraştım şimdilik çözdüm.
Me.TextBox21.Value = Format(Me.TextBox21.Value, "#,##0.00") bunu silin.ilgili koduda alttaki gibi değiştirin yani Format(  ekledim çalıştı bende.

        Me.TextBox21.Value = Format(WorksheetFunction.SumIfs(.Range("N:N"), .Range("C:C"), Me.ListView1.SelectedItem.SubItems(1) _

                  , .Range("D"), Me.ListView1.SelectedItem.SubItems(2), .Range("E:E"), Me.ListView1.SelectedItem.SubItems(3)), "#,##0.00")

---

Sorun heralde sumifs ile veri metinsel olarak sonuçlandığı için oluyor resimdeki gibide basitçe yapılır.Bir değişken tanımlayıp coketopla gibi.


https://resim.accesstr.net/do.php?img=11149