Merhaba,

kullandığınız kod

Me.Say = Dlookup ("[Say]", "is", "[Yap_is]=" & Me.Yap_is)

kodda kriter olarak kullandığınız Yap-is alanı metin olduğu için tek tırnak içine almanız gerekiyor.

Me.Say = Dlookup ("[Say]", "is", "[Yap_is]='" & Me.Yap_is & "'")


Özel lab mevzusunda - olması için -1 ile çarpmanız gerekli, Üst formdaki veriyi kontrol edip özel lab ise *-1 olmalı.

Private Sub Yap_is_AfterUpdate()



If [Forms]![Tablo1]![Per_Ad] <> "ÖZEL LAB." Then



Me.Say = Dlookup ("[Say]", "is", "[Yap_is]='" & Me.Yap_is & "'")



Else



Me.Say = Dlookup ("[Say]", "is", "[Yap_is]='" & Me.Yap_is & "'") * -1



End If





End Sub