ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[alibuyuk66]

Merhaba Arkadaşlar.
Aşağıdaki Sorunu nasıl çözebilirim. Kaçtane konu inceledim fakat bulamadım

hata.JPG

[Ali ÖZ]

Merhaba,
Örnek veri tabanı ekler misiniz.

[alibuyuk66]

Kusura bakma kardeşim.
Veri tabanını eklemeyi unutmuşum

[Ali ÖZ]

Merhaba,
Sorgunuzu bu şekilde değiştirip deneyin.

Kod: Tümünü seç

    Sorgu = "select Kimlik,İslemTipi,Kategori,OdemeSekli,Aciklama,Tarih,Ay,Yil,Saat,CDBL(GirisToplami),CikisToplami " & _
    " from Kasa where not isnull(kimlik)"

[alibuyuk66]

Teşekkürler Ali bey.
Listboxa veriler geldi fakat hala sağ yukarıda bulunanfiltreleme toplama kısmına kuruşların toplamı yansımıyor.

[Tarkan VURAL]

Merhaba,
Çalışmadaki filtretopla metodundaki t1 ve t2 değişkenlerinde kullandığınız VAL ifadelerini iptal etmeniz gerekiyor. VAL tamsayı anlamında çalışmaktadır. Kolay gelsin.

[alibuyuk66]

Süpersiniz Tarkan bey.
Eyvallah. Allah razı olsun. Hem metiende hem sayıda çalıştı.

[alibuyuk66]

Merhaba Tarkan Bey.
Bu seferde farklı bir sorun oluştu
Ben Nakit olan Ve nakit olan Gelir ve giderleri hesaplatıyorum fakat nakit olmayan harcamalarımı hesaplattırırken tl format sorunu oluşuyor.

format hata.png

[Tarkan VURAL]

Kod: Tümünü seç

Me.txtgelirtoplamdiger.Value = Replace(tumgelirtop.Value, ".", ",") - Replace(txtgelirtoplamnakit.Value, ".", ",")

[alibuyuk66]

Tarkan bey.
Yüzlük ve ondalık ayırması mümkün değilmi
Örnek : 4.300,00 825,30 gibi

diğerson.JPG

[Tarkan VURAL]

Tabi ki mümkün.

Kod: Tümünü seç

Me.txtgelirtoplamdiger.Value = FormatNumber(Replace(tumgelirtop.Value, ".", ",") - Replace(txtgelirtoplamnakit.Value, ".", ","), 2)

[alibuyuk66]

Eyvallah Tarkan Hocam
Çok makbule geçti. Allah razı olsun.