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.