Merhaba,

Gelir_toplam metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

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