(24/10/2017, 11:28)53rize yazdı: Çok teşekkür ederim istediğim gibi oldu fakat Rakam girdiğimde yüzdelik dağıtımları yapıyor. diyelimki rakam aynı olup gelir cinsini değiştiğimdede  güncellesin. Burada ise rakama tekrar müdahale ediyorum güncellemeyi yapıyor.

Dim GVerim, GKalan As Integer



If IsNull(Me.Açılan_Kutu31) Then



    MsgBox ("Gelir Adını Seçiniz")

    Me.Açılan_Kutu31.SetFocus



Else



    GVerim = Dlookup ("[Glr_Yüzde]", "Gelirler", "[Gelir_adı]='" & [Açılan_Kutu31] & "'")

    GKalan = 100 - GVerim



    GM_kln_brc = (Me.Gelir_toplam * GVerim) / 100

    Sube_bky = (Me.Gelir_toplam * GKalan) / 100



End If