Merhaba,
Yardımcı olmak istiyorum ancak sorunuzdan hiçbir şey anlamadım. Anlayan arkadaşlar yardımcı olurlar.
Arkadaşlar özür dilerim örnek yanlış eklemişim. 1. mesajdaki örneği düzeltim.
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
Sayın ozanakkaya hocam emeğine sağlık istediğim buydu teşekkür ederim.
Ozan hocam yine bu "ÖZEL LAB." da "RPT ÜT","RPT AT","RPT ÜP","RPT AP","RPT AÜT" bu işlemleri seçince 0 atması için ne yapmalıyız.
teşekkür ederim.