Skip to main content

AccessTr.neT


Dlookup Neresinde Hata Yapıyorum.

Dlookup Neresinde Hata Yapıyorum.

#13
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.
Cevapla
#14
emeğine sağlık teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task