19/03/2018, 12:39
19/03/2018, 12:57
Merhaba,
Yardımcı olmak istiyorum ancak sorunuzdan hiçbir şey anlamadım. Anlayan arkadaşlar yardımcı olurlar.
Yardımcı olmak istiyorum ancak sorunuzdan hiçbir şey anlamadım. Anlayan arkadaşlar yardımcı olurlar.
19/03/2018, 13:34
Arkadaşlar özür dilerim örnek yanlış eklemişim. 1. mesajdaki örneği düzeltim.
19/03/2018, 13:37
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ı.
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
19/03/2018, 13:48
Sayın ozanakkaya hocam emeğine sağlık istediğim buydu teşekkür ederim.
19/03/2018, 14:25
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.
teşekkür ederim.