Private Sub Yap_is_AfterUpdate()
If [Forms]![Tablo1]![Per_Ad] <> "ÖZEL LAB." Then
Me.Say = Dlookup ("Kimlik", "is", "[is]='" & [Yap_is] & "'")
Else
If Me.Yap_is = "RPT ÜT" Or Me.Yap_is = "RPT AT" Or Me.Yap_is = "RPT ÜP" Then
Me.Say = 0
Else
Me.Say = Dlookup ("Kimlik", "is", "[is]='" & [Yap_is] & "'") * -1
End If
End If
End Sub
koda sadece "RPT ÜT","RPT AT","RPT ÜP" değerleri eklendi. Diğerlerini kendiniz eklersiniz.