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
İnceleyiniz.