Yürüyen BAkiye için fonksiyonunuzu

Public Function BAK(GMN As Long, B As Variant, A As Variant) As Currency

    If IsNull(B) Then B = 0

    If IsNull(A) Then A = 0

    If GLB_MN = GMN Then

       GLB_Bakiye = GLB_Bakiye + B - A

    Else

       GLB_MN = GMN

       GLB_Bakiye = B - A

    End If

    BAK = GLB_Bakiye

End Function

olarak gücelleyin. Burada Double kullanımı hatalı küsuratlı sayılarda hassasiyet kaybı olur. Gelir ve Gider kayıtlarınızın tablolarda da alanlarını Currency olarak ayarlar, form ve raporlarınızda da ilgili denetimlerin Format özelliğini "Currency" veya "#,##0.00" olarak ayarlarsanız sorununuz %99 çözülecektir. Halen sorun yaşıyoranız günce örneğinizi eklerseniz haftasonu fırsat bulup bakmaya çalışırım Ahmet Bey.