Sub CezaHesapla()

Dim Ceza1, Ceza2, Ceza3 As Integer

    Ceza1 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD1 & "'"), 0)

    Ceza2 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD2 & "'"), 0)

    Ceza3 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD3 & "'"), 0)

    Me.CEZA_MİKTARI = Ceza1 + Ceza2 + Ceza3

    Call MiktarGizle

End Sub



Sub MiktarGizle()



If IsNull(CEZA_MAD1) And IsNull(CEZA_MAD2) And IsNull(CEZA_MAD3) Then

    Me.CEZA_MİKTARI.Visible = False

Else

    Me.CEZA_MİKTARI.Visible = True

End If



End Sub



Private Sub CEZA_MAD1_AfterUpdate()

    CezaHesapla

End Sub



Private Sub CEZA_MAD2_AfterUpdate()

    CezaHesapla

End Sub



Private Sub CEZA_MAD3_AfterUpdate()

    CezaHesapla

End Sub



Private Sub Form_Current()

     MiktarGizle

End Sub